☆DocuWorksViewerを作る。

下記のようなDocuWorksViewerを作ってみます。
(DocuWorksとはFuji Xeroxのドキュメント有効活用ソフトウエアです）
※DocuWorksがインストールされている必要があります。

DocuWorksのAPIではなく、ActiveXを使うだけなので簡単です。
まず、ActiveXの取り込みを下記の手順で行います。

メニューから コンポーネント　→　コンポーネントのインストールを選択します。

インストールしたTDeskCtrlコンポーネントを使ってDocuWorksのファイルを表示させます。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, DESKCTRLLib_TLB;

type
  TForm1 = class(TForm)
    DeskCtrl1: TDeskCtrl;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  WS: WideString;
begin
  WS := 'C:\Delphi_QA_ja.xdw';
  DeskCtrl1.LoadFile(WS);
end;

end.

FUJI XEROX
DocuWorks
http://www.fujixerox.co.jp/soft/docuworks/