blob: 778f6fb8a072591ec27f4e3c48ba704f96a6e0d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ %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.
|
