paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some small extensions

Browse Source
This commit is contained in:
florian 1998-04-26 22:37:22 +00:00
parent 45de55a736
commit 168cd84d1e
2 changed files with 82 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/syswin32.pp
View File

@ -2,7 +2,8 @@
$Id$
This file is part of the Free Pascal run time library.
FPC Pascal system unit for the Win32 API.
Copyright (c) 1993,98 by Florian Klaempfl and Pavel Ozerski
Copyright (c) 1993-98 by Florian Klaempfl and Pavel Ozerski
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
@ -410,7 +411,10 @@ end.
{
$Log$
Revision 1.3 1998-04-26 21:49:57 florian
Revision 1.4 1998-04-26 22:37:22 florian
* some small extensions
Revision 1.3 1998/04/26 21:49:57 florian
+ more stuff added (??dir procedures etc.)
Revision 1.2 1998/03/27 00:50:22 peter

102
rtl/win32/win32.inc
View File

@ -1,7 +1,10 @@
{
$Id$
This file contains the Win32-API import declarations
for the system unit and the DOS unit
This file is part of the Free Pascal run time library.
Copyright (c) 1993,97 by Florian Klaempfl,
Copyright (c) 1997,98 by Florian Klaempfl,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
@ -54,36 +57,53 @@
wHour,wMinute,wSecond,WMilliseconds : word;
end;
FILETIME = record
dwLowDateTime : longint;
dwHighDateTime : longint;
end;
PFILETIME = ^FILETIME;
{ command line/enviroment functions }
function GetCommandLine : LPTSTR;external 'kernel32' name 'GetCommandLineA';
function GetCommandLine : LPTSTR;
external 'kernel32' name 'GetCommandLineA';
function GetEnvironmentStrings : pchar;
external 'kernel32' name 'GetEnvironmentStringsA';
function FreeEnvironmentStrings(p : pchar) : boolean;
external 'kernel32' name 'FreeEnvironmentStringsA';
{ string functions }
{ string functions
function lstrlen(lpString:LPCTSTR):longint;external;
function lstrcat(lpString1:LPTSTR; lpString2:LPCTSTR):LPTSTR;external;
function lstrcpy(lpString1:LPTSTR; lpString2:LPCTSTR):LPTSTR;external;
}
{ process functions }
procedure ExitProcess(uExitCode : UINT);external 'kernel32' name 'ExitProcess';
procedure ExitProcess(uExitCode : UINT);
external 'kernel32' name 'ExitProcess';
{ file functions }
function GetStdHandle(nStdHandle:DWORD):HANDLE;external 'kernel32' name 'GetStdHandle';
function GetStdHandle(nStdHandle:DWORD):HANDLE;
external 'kernel32' name 'GetStdHandle';
function WriteFile(fh:longint;buf:pointer;len:longint;var loaded:longint;
overlap:pointer):longint;external 'kernel32' name 'WriteFile';
overlap:pointer):longint;
external 'kernel32' name 'WriteFile';
function ReadFile(fh:longint;buf:pointer;len:longint;var loaded:longint;
overlap:pointer):longint;external 'kernel32' name 'ReadFile';
function CloseHandle(h : longint) : longint;external 'kernel32' name 'CloseHandle';
function DeleteFile(p : pchar) : longint;external 'kernel32' name 'DeleteFileA';
function MoveFile(old,_new : pchar) : longint;external 'kernel32' name 'MoveFileA';
overlap:pointer):longint;
external 'kernel32' name 'ReadFile';
function CloseHandle(h : longint) : longint;
external 'kernel32' name 'CloseHandle';
function DeleteFile(p : pchar) : longint;
external 'kernel32' name 'DeleteFileA';
function MoveFile(old,_new : pchar) : longint;
external 'kernel32' name 'MoveFileA';
function SetFilePointer(l1,l2 : longint;l3 : pointer;l4 : longint) : longint;
external 'kernel32' name 'SetFilePointer';
function GetFileSize(h:longint;p:pointer) : longint;
external 'kernel32' name 'GetFileSize';
function CreateFile(name:pointer;access,sharing:longint;security:pointer;
how,attr,template:longint) : longint;external 'kernel32' name 'CreateFileA';
how,attr,template:longint) : longint;
external 'kernel32' name 'CreateFileA';
function CreateDirectory(name : pointer;sec : pointer) : longint;
external 'kernel32' name 'CreateDirectoryA';
function RemoveDirectory(name:pointer):longint;
@ -96,37 +116,67 @@
external 'kernel32' name 'SetFileAttributesA';
function GetFileAttributes(lpFileName : pchar) : longint;
external 'kernel32' name 'GetFileAttributesA';
function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFILETIME) : boolean;
external 'kernel32' name 'GetFileTime';
function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFILETIME) : boolean;
external 'kernel32' name 'SetFileTime';
{ module functions }
function GetModuleFileName(l1:longint;p:pointer;l2:longint):longint;external 'kernel32' name 'GetModuleFileNameA';
procedure GetStartupInfo(p : pointer);external 'kernel32' name 'GetStartupInfoA';
function GetModuleFileName(l1:longint;p:pointer;l2:longint):longint;
external 'kernel32' name 'GetModuleFileNameA';
procedure GetStartupInfo(p : pointer);
external 'kernel32' name 'GetStartupInfoA';
function GetModuleHandle(p : pointer) : longint;
external 'kernel32' name 'GetModuleHandleA';
{ memory functions }
function GlobalAlloc(mode,size:longint):longint;external 'kernel32' name 'GlobalAlloc';
function GlobalHandle(p:pointer):longint;external 'kernel32' name 'GlobalHandle';
function GlobalLock(handle:longint):pointer;external 'kernel32' name 'GlobalLock';
function GlobalUnlock(h:longint):longint;external 'kernel32' name 'GlobalUnlock';
function GlobalFree(h:longint):longint;external 'kernel32' name 'GlobalUnlock';
procedure GlobalMemoryStatus(p:pointer);external 'kernel32' name 'GlobalMemoryStatus';
function LocalAlloc(uFlags : UINT;uBytes :UINT) : HLOCAL;external 'kernel32' name 'LocalAlloc';
function LocalFree(hMem:HLOCAL):HLOCAL;external 'kernel32' name 'LocalFree';
function GlobalAlloc(mode,size:longint):longint;
external 'kernel32' name 'GlobalAlloc';
function GlobalHandle(p:pointer):longint;
external 'kernel32' name 'GlobalHandle';
function GlobalLock(handle:longint):pointer;
external 'kernel32' name 'GlobalLock';
function GlobalUnlock(h:longint):longint;
external 'kernel32' name 'GlobalUnlock';
function GlobalFree(h:longint):longint;
external 'kernel32' name 'GlobalUnlock';
procedure GlobalMemoryStatus(p:pointer);
external 'kernel32' name 'GlobalMemoryStatus';
function LocalAlloc(uFlags : UINT;uBytes :UINT) : HLOCAL;
external 'kernel32' name 'LocalAlloc';
function LocalFree(hMem:HLOCAL):HLOCAL;
external 'kernel32' name 'LocalFree';
{ time and date functions }
procedure GetLocalTime(var t : SYSTEMTIME);
external 'kernel32' name 'GetLocalTime';
function SetLocalTime(const t : SYSTEMTIME) : boolean;
external 'kernel32' name 'SetLocalTime';
function FileTimeToDosDateTime(const ft : FILETIME;var data,time : word) : boolean;
external 'kernel32' name 'FileTimeToDosDateTime';
function DosDateTimeToFileTime(date,time : word;var ft : FILETIME) : boolean;
external 'kernel32' name 'DosDateTimeToFileTime';
function GetTickCount : longint;
external 'kernel32' name 'GetTickCount';
function FileTimeToLocalFileTime(const ft : FILETIME;var lft : FILETIME) : boolean;
external 'kernel32' name 'FileTimeToLocalFileTime';
function LocalFileTimeToFileTime(const lft : FILETIME;var ft : FILETIME) : boolean;
external 'kernel32' name 'LocalFileTimeToFileTime';
{ misc. functions }
function GetLastError : DWORD;external 'kernel32' name 'GetLastError';
function MessageBox(w1:longint;l1,l2:pointer;w2:longint):longint;external 'user32' name 'MessageBoxA';
function GetTickCount : longint;external 'kernel32' name 'GetTickCount';
function GetVersion : longint;external 'kernel32' name 'GetVersion';
function GetLastError : DWORD;
external 'kernel32' name 'GetLastError';
function MessageBox(w1:longint;l1,l2:pointer;w2:longint):longint;
external 'user32' name 'MessageBoxA';
function GetVersion : longint;
external 'kernel32' name 'GetVersion';
{
$Log$
Revision 1.3 1998-04-26 21:49:58 florian
Revision 1.4 1998-04-26 22:37:22 florian
* some small extensions
Revision 1.3 1998/04/26 21:49:58 florian
+ more stuff added (??dir procedures etc.)
Revision 1.2 1998/03/27 00:50:22 peter