Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Microsoft Word

Автор: Beep 26.10.2004, 10:52

Люди плз . подскажите как открыть вордовский док файл для просмотра ...допустим чтоб он отображался в моём прилложении .

пасиба

Автор: Mick Winder 26.10.2004, 12:19

unit now;

interface

uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, ComObj, ActiveX, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ServerIsRunning: Boolean;
Unknown: IUnknown;
Result: HResult;
AppProgID: String;
App: Variant;
begin
AppProgID:= 'Word.Application';
ServerIsRunning:= False;
Result:=
GetActiveObject(ProgIDToClassID(AppProgID),
nil, Unknown);
if (Result = MK_E_UNAVAILABLE) then
App:= CreateOleObject(AppProgID)
else begin
App:=GetActiveOleObject(AppProgID);
ServerIsRunning:= True;
end;
App.Visible:= True;
//------------------------------------------
App.Documents.Open('E:\sera.doc');

//------------------------------------------
//if not ServerIsRunning then App.Quit;
//App:=Unassigned;
end;

end.