There seems to be 'kernel32' missing in two functions in ascdef.inc of
the rtl/win/wininc:
FindFirstFileEx and FindFirstFileTransacted
--- fpc/trunk/rtl/win/wininc/ascdef.inc Fr Jun 8 18:22:45 2012
+++ fpc/trunk/rtl/win/wininc/ascdef.my.inc Fr Jul 27 23:31:01 2012
@@ -474,10 +474,10 @@
function LogonUser(_para1:LPSTR; _para2:LPSTR; _para3:LPSTR; _para4:DWORD;
_para5:DWORD;_para6:PHANDLE):WINBOOL; external 'advapi32' name 'LogonUserA';
function CreateProcessAsUser(_para1:HANDLE; _para2:LPCTSTR; _para3:LPTSTR;
_para4:LPSECURITY_ATTRIBUTES; _para5:LPSECURITY_ATTRIBUTES;_para6:WINBOOL;
_para7:DWORD; _para8:LPVOID; _para9:LPCTSTR;
_para10:LPSTARTUPINFO; _para11:LPPROCESS_INFORMATION):WINBOOL; external
'advapi32' name 'CreateProcessAsUserA';
-function FindFirstFileEx(lpfilename : LPCStr;fInfoLevelId:FINDEX_INFO_LEVELS
;lpFindFileData:pointer;fSearchOp :
FINDEX_SEARCH_OPS;lpSearchFilter:pointer;dwAdditionalFlags:dword):Handle;
stdcall; external name 'FindFirstFileExA';
+function FindFirstFileEx(lpfilename : LPCStr;fInfoLevelId:FINDEX_INFO_LEVELS
;lpFindFileData:pointer;fSearchOp :
FINDEX_SEARCH_OPS;lpSearchFilter:pointer;dwAdditionalFlags:dword):Handle;
stdcall; external 'kernel32' name 'FindFirstFileExA';
// winver>$0600
function FindFirstFileTransacted(lpfilename :
LPCStr;fInfoLevelId:FINDEX_INFO_LEVELS ;lpFindFileData:pointer;fSearchOp :
FINDEX_SEARCH_OPS;lpSearchFilter:pointer;dwAdditionalFlags:dword;htransaction :
HANDLE):Handle; stdcall;
- external name 'FindFirstFileTransactedA';
+ external 'kernel32' name 'FindFirstFileTransactedA';
{$endif read_interface}
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
