mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:28:05 +02:00
26 lines
468 B
ObjectPascal
26 lines
468 B
ObjectPascal
{ %TARGET=win32,win64,wince}
|
|
{ %FAIL}
|
|
{ %NORUN }
|
|
|
|
program tdispinterface1b;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
|
|
uses
|
|
SysUtils, ActiveX, ComObj;
|
|
|
|
type
|
|
IIE = dispinterface
|
|
['{0002DF05-0000-0000-C000-000000000046}']
|
|
property Visible: wordbool writeonly dispid 402;
|
|
end;
|
|
|
|
var
|
|
II: IIE;
|
|
begin
|
|
II := CreateOleObject('InternetExplorer.Application') as IIE;
|
|
if not II.Visible then // must fail because property is writeonly
|
|
II.Visible := True;
|
|
end. |