paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-20 21:21:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed paramstr(0)

Browse Source
This commit is contained in:
michael 1999-06-11 16:26:40 +00:00
parent e4c9cc83b8
commit 3c33678c4e
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/win32/syswin32.pp
View File

@ -209,13 +209,24 @@ begin
paramcount := argc - 1;
end;
{ module functions }
function GetModuleFileName(l1:longint;p:pointer;l2:longint):longint;
external 'kernel32' name 'GetModuleFileNameA';
function GetModuleHandle(p : pointer) : longint;
external 'kernel32' name 'GetModuleHandleA';
function GetCommandFile:pchar;forward;
function paramstr(l : longint) : string;
begin
if (l>=0) and (l+1<=argc) then
if (l>0) and (l+1<=argc) then
paramstr:=strpas(argv[l])
else
paramstr:='';
if l=0 then
paramstr:=strpas(GetCommandFile)
else
paramstr:='';
end;
@ -651,11 +662,6 @@ end;
function GetCommandLine : pchar;
external 'kernel32' name 'GetCommandLineA';
{ module functions }
function GetModuleFileName(l1:longint;p:pointer;l2:longint):longint;
external 'kernel32' name 'GetModuleFileNameA';
function GetModuleHandle(p : pointer) : longint;
external 'kernel32' name 'GetModuleHandleA';
var
ModuleName : array[0..255] of char;
@ -1016,7 +1022,10 @@ end.
{
$Log$
Revision 1.39 1999-05-17 21:52:47 florian
Revision 1.40 1999-06-11 16:26:40 michael
+ Fixed paramstr(0)
Revision 1.39 1999/05/17 21:52:47 florian
* most of the Object Pascal stuff moved to the system unit
Revision 1.38 1999/04/28 11:42:53 peter