Browse Source

* fixed bug #0007140, adding overloaded version for SHFileOperation

git-svn-id: trunk@4418 -
michael 19 years ago
parent
commit
adc889e9ac
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/win/wininc/redef.inc

+ 1 - 1
rtl/win/wininc/redef.inc

@@ -923,7 +923,7 @@ function WriteConsoleW(hConsoleOutput: THandle; const lpBuffer: Pointer; nNumber
 function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; external 'kernel32' name 'WriteFile';
 function WriteFileEx(hFile: THandle; lpBuffer: Pointer; nNumberOfBytesToWrite: DWORD; const lpOverlapped: TOverlapped; lpCompletionRoutine: FARPROC): BOOL; external 'kernel32' name 'WriteFileEx';
 function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; external 'kernel32' name 'WriteProcessMemory';
-
+function SHFileOperation(Var para1: SHFILEOPSTRUCT):longint; external 'shell32' name 'SHFileOperation';
 // these are old Win16 funcs that under win32 are aliases for several char* funcs.
 // exist under Win32 (even in SDK's from 2002), but are officially "depreciated"
 function AnsiNext(const lpsz: LPCSTR): LPSTR;external 'user32' name 'CharNextA';