diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-08-13 12:53:40 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-08-13 12:53:40 +0000 |
commit | 864a4f71f7b74c0515b3a1587d55ac2266edb843 (patch) | |
tree | bdc36dfc5c8eb0d708d3b532e00b45b49044dc7a /installer | |
parent | 7eed34993d3efef314eeabcc84a75cc4576e5fc0 (diff) | |
download | fpc-864a4f71f7b74c0515b3a1587d55ac2266edb843.tar.gz |
* Patch by Bart Broersma to fix breakage over the years. Though this file is mostly obsolete. Mants #26575
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@28402 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'installer')
-rw-r--r-- | installer/winshell.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/installer/winshell.pas b/installer/winshell.pas index 378dee1f86..37bb7c725d 100644 --- a/installer/winshell.pas +++ b/installer/winshell.pas @@ -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)); |