From c57571a8cf9b288ba1689373a324aaa88b0c4904 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 30 Jan 2008 20:12:33 +0000
Subject: [PATCH]  * corrected some declarations to be more Delphi compat.
 (jclshell.pas)

git-svn-id: trunk@10118 -
---
 packages/winunits-base/src/shellapi.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/winunits-base/src/shellapi.pp b/packages/winunits-base/src/shellapi.pp
index fc4ef3ce2a..823c6c52e7 100644
--- a/packages/winunits-base/src/shellapi.pp
+++ b/packages/winunits-base/src/shellapi.pp
@@ -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';