paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +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
Windows;
type
INT = WINT;
const
{ GetCurrentPlatform constants }
pfAll = %11111111;
@ -337,7 +339,7 @@ begin
end;
if link^.vtbl^.QueryInterface (link, IID_IShellLinkDataList, DL) = S_OK then
begin
flags:=-1;
flags:= DWORD(-1);
if DL^.vtbl^.GetFlags(DL,flags)=S_OK then
begin
writeln('Link flag is ',hexstr(flags,8));