From a4dd7701d94941b90689237a97ad47dc59b08556 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Tue, 2 Nov 2010 07:11:17 +0000
Subject: [PATCH] * win/sysutils.pp: removed private WinAPI function
declarations. Since this unit uses Windows unit, there's no point in
re-declaring stuff.
git-svn-id: trunk@16292 -
---
rtl/win/sysutils.pp | 32 +++-----------------------------
1 file changed, 3 insertions(+), 29 deletions(-)
diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index 51d5115713..fc2535732b 100644
--- a/rtl/win/sysutils.pp
+++ b/rtl/win/sysutils.pp
@@ -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 }