paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch by Bart Broersma to fix breakage over the years. Though this file is mostly obsolete. Mants #26575

Browse Source 
git-svn-id: trunk@28402 -
This commit is contained in:
marco 2014-08-13 12:53:40 +00:00
parent 21246e973a
commit 4aced18d94
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
installer/winshell.pas
View File

@ -9,6 +9,8 @@ interface
uses uses
Windows; Windows;
type
INT = WINT;
const const
{ GetCurrentPlatform constants } { GetCurrentPlatform constants }
pfAll = %11111111; pfAll = %11111111;
@ -337,7 +339,7 @@ begin
end; end;
if link^.vtbl^.QueryInterface (link, IID_IShellLinkDataList, DL) = S_OK then if link^.vtbl^.QueryInterface (link, IID_IShellLinkDataList, DL) = S_OK then
begin begin
flags:=-1; flags:= DWORD(-1);
if DL^.vtbl^.GetFlags(DL,flags)=S_OK then if DL^.vtbl^.GetFlags(DL,flags)=S_OK then
begin begin
writeln('Link flag is ',hexstr(flags,8)); writeln('Link flag is ',hexstr(flags,8));