paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +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$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
FPC Pascal system unit for the Win32 API. 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. member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
@ -410,7 +411,10 @@ end.
{ {
$Log$ $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.) + more stuff added (??dir procedures etc.)
Revision 1.2 1998/03/27 00:50:22 peter Revision 1.2 1998/03/27 00:50:22 peter

102
rtl/win32/win32.inc
View File

@ -1,7 +1,10 @@
{ {
$Id$ $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. 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. member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
@ -54,36 +57,53 @@
wHour,wMinute,wSecond,WMilliseconds : word; wHour,wMinute,wSecond,WMilliseconds : word;
end; end;
FILETIME = record
dwLowDateTime : longint;
dwHighDateTime : longint;
end;
PFILETIME = ^FILETIME;
{ command line/enviroment functions } { command line/enviroment functions }
function GetCommandLine : LPTSTR;external 'kernel32' name 'GetCommandLineA'; function GetCommandLine : LPTSTR;
external 'kernel32' name 'GetCommandLineA';
function GetEnvironmentStrings : pchar; function GetEnvironmentStrings : pchar;
external 'kernel32' name 'GetEnvironmentStringsA'; external 'kernel32' name 'GetEnvironmentStringsA';
function FreeEnvironmentStrings(p : pchar) : boolean; function FreeEnvironmentStrings(p : pchar) : boolean;
external 'kernel32' name 'FreeEnvironmentStringsA'; external 'kernel32' name 'FreeEnvironmentStringsA';
{ string functions } { string functions
function lstrlen(lpString:LPCTSTR):longint;external; function lstrlen(lpString:LPCTSTR):longint;external;
function lstrcat(lpString1:LPTSTR; lpString2:LPCTSTR):LPTSTR;external; function lstrcat(lpString1:LPTSTR; lpString2:LPCTSTR):LPTSTR;external;
function lstrcpy(lpString1:LPTSTR; lpString2:LPCTSTR):LPTSTR;external; function lstrcpy(lpString1:LPTSTR; lpString2:LPCTSTR):LPTSTR;external;
}
{ process functions } { process functions }
procedure ExitProcess(uExitCode : UINT);external 'kernel32' name 'ExitProcess'; procedure ExitProcess(uExitCode : UINT);
external 'kernel32' name 'ExitProcess';
{ file functions } { 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; 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; function ReadFile(fh:longint;buf:pointer;len:longint;var loaded:longint;
overlap:pointer):longint;external 'kernel32' name 'ReadFile'; overlap:pointer):longint;
function CloseHandle(h : longint) : longint;external 'kernel32' name 'CloseHandle'; external 'kernel32' name 'ReadFile';
function DeleteFile(p : pchar) : longint;external 'kernel32' name 'DeleteFileA'; function CloseHandle(h : longint) : longint;
function MoveFile(old,_new : pchar) : longint;external 'kernel32' name 'MoveFileA'; 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; function SetFilePointer(l1,l2 : longint;l3 : pointer;l4 : longint) : longint;
external 'kernel32' name 'SetFilePointer'; external 'kernel32' name 'SetFilePointer';
function GetFileSize(h:longint;p:pointer) : longint; function GetFileSize(h:longint;p:pointer) : longint;
external 'kernel32' name 'GetFileSize'; external 'kernel32' name 'GetFileSize';
function CreateFile(name:pointer;access,sharing:longint;security:pointer; 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; function CreateDirectory(name : pointer;sec : pointer) : longint;
external 'kernel32' name 'CreateDirectoryA'; external 'kernel32' name 'CreateDirectoryA';
function RemoveDirectory(name:pointer):longint; function RemoveDirectory(name:pointer):longint;
@ -96,37 +116,67 @@
external 'kernel32' name 'SetFileAttributesA'; external 'kernel32' name 'SetFileAttributesA';
function GetFileAttributes(lpFileName : pchar) : longint; function GetFileAttributes(lpFileName : pchar) : longint;
external 'kernel32' name 'GetFileAttributesA'; 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 } { module functions }
function GetModuleFileName(l1:longint;p:pointer;l2:longint):longint;external 'kernel32' name 'GetModuleFileNameA'; function GetModuleFileName(l1:longint;p:pointer;l2:longint):longint;
procedure GetStartupInfo(p : pointer);external 'kernel32' name 'GetStartupInfoA'; external 'kernel32' name 'GetModuleFileNameA';
procedure GetStartupInfo(p : pointer);
external 'kernel32' name 'GetStartupInfoA';
function GetModuleHandle(p : pointer) : longint; function GetModuleHandle(p : pointer) : longint;
external 'kernel32' name 'GetModuleHandleA'; external 'kernel32' name 'GetModuleHandleA';
{ memory functions } { memory functions }
function GlobalAlloc(mode,size:longint):longint;external 'kernel32' name 'GlobalAlloc'; function GlobalAlloc(mode,size:longint):longint;
function GlobalHandle(p:pointer):longint;external 'kernel32' name 'GlobalHandle'; external 'kernel32' name 'GlobalAlloc';
function GlobalLock(handle:longint):pointer;external 'kernel32' name 'GlobalLock'; function GlobalHandle(p:pointer):longint;
function GlobalUnlock(h:longint):longint;external 'kernel32' name 'GlobalUnlock'; external 'kernel32' name 'GlobalHandle';
function GlobalFree(h:longint):longint;external 'kernel32' name 'GlobalUnlock'; function GlobalLock(handle:longint):pointer;
procedure GlobalMemoryStatus(p:pointer);external 'kernel32' name 'GlobalMemoryStatus'; external 'kernel32' name 'GlobalLock';
function LocalAlloc(uFlags : UINT;uBytes :UINT) : HLOCAL;external 'kernel32' name 'LocalAlloc'; function GlobalUnlock(h:longint):longint;
function LocalFree(hMem:HLOCAL):HLOCAL;external 'kernel32' name 'LocalFree'; 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 } { time and date functions }
procedure GetLocalTime(var t : SYSTEMTIME); procedure GetLocalTime(var t : SYSTEMTIME);
external 'kernel32' name 'GetLocalTime'; external 'kernel32' name 'GetLocalTime';
function SetLocalTime(const t : SYSTEMTIME) : boolean; function SetLocalTime(const t : SYSTEMTIME) : boolean;
external 'kernel32' name 'SetLocalTime'; 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 } { misc. functions }
function GetLastError : DWORD;external 'kernel32' name 'GetLastError'; function GetLastError : DWORD;
function MessageBox(w1:longint;l1,l2:pointer;w2:longint):longint;external 'user32' name 'MessageBoxA'; external 'kernel32' name 'GetLastError';
function GetTickCount : longint;external 'kernel32' name 'GetTickCount'; function MessageBox(w1:longint;l1,l2:pointer;w2:longint):longint;
function GetVersion : longint;external 'kernel32' name 'GetVersion'; external 'user32' name 'MessageBoxA';
function GetVersion : longint;
external 'kernel32' name 'GetVersion';
{ {
$Log$ $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.) + more stuff added (??dir procedures etc.)
Revision 1.2 1998/03/27 00:50:22 peter Revision 1.2 1998/03/27 00:50:22 peter