blob: 460905a4b0db8a6aaf8a33a23e0e39aa3f79fab2 (
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 tdispinterface1a;
{$ifdef fpc}
{$mode objfpc}
{$endif}
uses
SysUtils, ActiveX, ComObj;
type
IIE = dispinterface
['{0002DF05-0000-0000-C000-000000000046}']
property Visible: wordbool readonly dispid 402;
end;
var
II: IIE;
begin
II := CreateOleObject('InternetExplorer.Application') as IIE;
if not II.Visible then
II.Visible := True; // must fail because property is readonly
end.
|
