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

* changed sysutils.exec to ExecuteProcess

Browse Source
This commit is contained in:
florian 2004-01-05 22:56:08 +00:00
parent 0c1fbaeae4
commit b761623fe7
1 changed files with 53 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
rtl/win32/sysutils.pp
View File

@ -671,6 +671,54 @@ begin
FreeEnvironmentStrings(p);
end;
function ExecuteProcess(Const Path: AnsiString; Const ComLine: AnsiString):integer;
var
SI: TStartupInfo;
PI: TProcessInformation;
Proc : TWin32Handle;
l : DWord;
CommandLine : ansistring;
e : EOSError;
begin
DosError := 0;
FillChar(SI, SizeOf(SI), 0);
SI.cb:=SizeOf(SI);
SI.wShowWindow:=1;
{ always surroound the name of the application by quotes
so that long filenames will always be accepted. But don't
do it if there are already double quotes, since Win32 does not
like double quotes which are duplicated!
}
if pos('"',path)=0 then
CommandLine:='"'+path+'"'
else
CommandLine:=path;
CommandLine:=Commandline+' '+ComLine+#0;
if not CreateProcess(nil, pchar(CommandLine),
Nil, Nil, ExecInheritsHandles,$20, Nil, Nil, SI, PI) then
begin
e:=EOSError.CreateFmt('Failed to execute %s : %d',[CommandLine,GetLastError]);
e.ErrorCode:=GetLastError;
raise e;
end;
Proc:=PI.hProcess;
CloseHandle(PI.hThread);
if WaitForSingleObject(Proc, dword($ffffffff)) <> $ffffffff then
begin
GetExitCodeProcess(Proc,l);
CloseHandle(Proc);
result:=l;
end
else
begin
e:=EOSError.CreateFmt('Failed to execute %s : %d',[CommandLine,GetLastError]);
e.ErrorCode:=GetLastError;
CloseHandle(Proc);
raise e;
end;
end;
{****************************************************************************
Initialization code
@ -733,7 +781,10 @@ Finalization
end.
{
$Log$
Revision 1.27 2003-11-26 20:00:19 florian
Revision 1.28 2004-01-05 22:56:08 florian
* changed sysutils.exec to ExecuteProcess
Revision 1.27 2003/11/26 20:00:19 florian
* error handling for Variants improved
Revision 1.26 2003/11/06 22:25:10 marco
@ -781,4 +832,4 @@ end.
Revision 1.12 2002/01/25 16:23:04 peter
* merged filesearch() fix
}
}