paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected some declarations to be more Delphi compat. (jclshell.pas)

Browse Source 
git-svn-id: trunk@10118 -
This commit is contained in:
marco 2008-01-30 20:12:33 +00:00
parent e318c8a9dc
commit c57571a8cf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/winunits-base/src/shellapi.pp
View File

@ -287,7 +287,7 @@ Type
Type
_SHFILEOPSTRUCTA = Record
hwnd : HWND;
wnd : HWND;
wFunc : UINT;
pFrom : LPCSTR;
pTo : LPCSTR;
@ -302,7 +302,7 @@ Type
_SHFILEOPSTRUCTW = record
hwnd : HWND;
wnd : HWND;
wFunc : UINT;
pFrom : LPCWSTR;
pTo : LPCWSTR;
@ -325,9 +325,11 @@ Type
{$endif}
Function SHFileOperationA(lpFileOp:LPSHFILEOPSTRUCTA ):Longint;external 'shell32.dll' name 'SHFileOperationA';
Function SHFileOperationW(lpFileOp:LPSHFILEOPSTRUCTW ):Longint;external 'shell32.dll' name 'SHFileOperationW';
Function SHFileOperation(lpFileOp:LPSHFILEOPSTRUCTA ):Longint;external 'shell32.dll' name 'SHFileOperationA';
Function SHFileOperation(var lpFileOp:SHFILEOPSTRUCTA ):Longint;external 'shell32.dll' name 'SHFileOperationA';
Function SHFileOperation(lpFileOp:LPSHFILEOPSTRUCTW ):Longint;external 'shell32.dll' name 'SHFileOperationW';
Procedure SHFreeNameMappings(hNameMappings : THandle);external 'shell32.dll' name 'SHFreeNameMappings';