mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:48:47 +02:00
35 lines
590 B
ObjectPascal
35 lines
590 B
ObjectPascal
{ %TARGET=win32,win64}
|
|
|
|
program tw15530;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
|
|
uses
|
|
SysUtils, ActiveX, ComObj;
|
|
|
|
type
|
|
IIE = dispinterface
|
|
['{0002DF05-0000-0000-C000-000000000046}']
|
|
procedure Quit; dispid 300;
|
|
property Visible: wordbool dispid 402;
|
|
end;
|
|
var
|
|
II: IIE;
|
|
begin
|
|
OleInitialize(nil);
|
|
|
|
II := CreateOleObject('InternetExplorer.Application') as IIE;
|
|
|
|
if II = nil then
|
|
halt(1);
|
|
|
|
if not II.Visible then // test dispid property getter
|
|
II.Visible := True; // test dispid property setter
|
|
|
|
II.Quit; // test dipid method call
|
|
|
|
OleUninitialize;
|
|
end.
|