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

* win/sysutils.pp: removed private WinAPI function declarations. Since this unit uses Windows unit, there's no point in re-declaring stuff.

Browse Source 
git-svn-id: trunk@16292 -
This commit is contained in:
sergei 2010-11-02 07:11:17 +00:00
parent d8eccf008d
commit a4dd7701d9
1 changed files with 3 additions and 29 deletions

32
rtl/win/sysutils.pp
View File

@ -156,15 +156,10 @@ function ConvertEraString(Count ,Year,Month,Day : integer) : string; forward;
{ Include platform independent implementation part }
{$i sysutils.inc}
function SysGetTempFileName(lpPathName:LPCSTR;
lpPrefixString:LPCSTR;
uUnique:UINT;
lpTempFileName:LPSTR):UINT;stdcall;external 'kernel32' name 'GetTempFileNameA';
function GetTempFileName(Dir,Prefix: PChar; uUnique: DWORD; TempFileName: PChar):DWORD;
begin
Result:=SysGetTempFileName(Dir,Prefix,uUnique,TempFileName);
Result:= Windows.GetTempFileNameA(Dir,Prefix,uUnique,TempFileName);
end;
@ -482,9 +477,6 @@ end;
Disk Functions
****************************************************************************}
function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector,
freeclusters,totalclusters:longint):longbool;
stdcall;external 'kernel32' name 'GetDiskFreeSpaceA';
type
TGetDiskFreeSpaceEx = function(drive:pchar;var availableforcaller,total,free):longbool;stdcall;
@ -495,7 +487,7 @@ function diskfree(drive : byte) : int64;
var
disk : array[1..4] of char;
secs,bytes,
free,total : longint;
free,total : dword;
qwtotal,qwfree,qwcaller : int64;
begin
if drive=0 then
@ -531,7 +523,7 @@ function disksize(drive : byte) : int64;
var
disk : array[1..4] of char;
secs,bytes,
free,total : longint;
free,total : dword;
qwtotal,qwfree,qwcaller : int64;
begin
if drive=0 then
@ -887,14 +879,6 @@ end;
Target Dependent
****************************************************************************}
function FormatMessageA(dwFlags : DWORD;
lpSource : Pointer;
dwMessageId : DWORD;
dwLanguageId: DWORD;
lpBuffer : PCHAR;
nSize : DWORD;
Arguments : Pointer): DWORD; stdcall;external 'kernel32' name 'FormatMessageA';
function SysErrorMessage(ErrorCode: Integer): String;
const
MaxMsgSize = Format_Message_Max_Width_Mask;
@ -1097,16 +1081,6 @@ begin
end;
end;
function FreeLibrary(hLibModule : THANDLE) : longbool;
stdcall;external 'kernel32' name 'FreeLibrary';
function GetVersionEx(var VersionInformation:TOSVERSIONINFO) : longbool;
stdcall;external 'kernel32' name 'GetVersionExA';
function LoadLibrary(lpLibFileName : pchar):THandle;
stdcall;external 'kernel32' name 'LoadLibraryA';
function GetProcAddress(hModule : THandle;lpProcName : pchar) : pointer;
stdcall;external 'kernel32' name 'GetProcAddress';
Const
CSIDL_PROGRAMS = $0002; { %SYSTEMDRIVE%\Program Files }
CSIDL_PERSONAL = $0005; { %USERPROFILE%\My Documents }