diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-09-20 17:50:41 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-09-20 17:50:41 +0000 |
| commit | 7ab78772c550adcd5a603fa6e332a3ba87cde1dc (patch) | |
| tree | 0183b03e58041eba45134cc4376cef0cc8151ca3 /packages/winunits-base | |
| parent | 09fcc2a35fd263133cd65b518aaeabcff59da15e (diff) | |
| download | fpc-7ab78772c550adcd5a603fa6e332a3ba87cde1dc.tar.gz | |
* integer->longint, $mode is not set for this unit mantis 17449
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16032 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/winunits-base')
| -rw-r--r-- | packages/winunits-base/src/shfolder.pp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/packages/winunits-base/src/shfolder.pp b/packages/winunits-base/src/shfolder.pp index 9a48bcbe3c..469fdd2652 100644 --- a/packages/winunits-base/src/shfolder.pp +++ b/packages/winunits-base/src/shfolder.pp @@ -83,17 +83,17 @@ Const { Original entry points } -Function SHGetFolderPathA(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; external LibName name 'SHGetFolderPathA'; -Function SHGetFolderPathW(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; external LibName name 'SHGetFolderPathW'; +Function SHGetFolderPathA(Ahwnd: HWND; Csidl: longint; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; external LibName name 'SHGetFolderPathA'; +Function SHGetFolderPathW(Ahwnd: HWND; Csidl: longint; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; external LibName name 'SHGetFolderPathW'; -Function SHGetFolderPath (Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; external LibName name 'SHGetFolderPathA'; +Function SHGetFolderPath (Ahwnd: HWND; Csidl: longint; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; external LibName name 'SHGetFolderPathA'; { For Delphi compatibility } type - PFNSHGetFolderPathA = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; - PFNSHGetFolderPathW = Function(Ahwnd: HWND; Csidl: Integer; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; + PFNSHGetFolderPathA = Function(Ahwnd: HWND; Csidl: longint; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; + PFNSHGetFolderPathW = Function(Ahwnd: HWND; Csidl: longint; Token: THandle; Flags: DWord; Path: PChar): HRESULT; stdcall; PFNSHGetFolderPath = PFNSHGetFolderPathA; TSHGetFolderPathA = PFNSHGetFolderPathA; |