74 lines
2.8 KiB
Plaintext
74 lines
2.8 KiB
Plaintext
{***************************************************************************}
|
|
{ }
|
|
{ DelphiUIAutomation }
|
|
{ }
|
|
{ Copyright 2015 JHC Systems Limited }
|
|
{ }
|
|
{***************************************************************************}
|
|
{ }
|
|
{ Licensed under the Apache License, Version 2.0 (the "License"); }
|
|
{ you may not use this file except in compliance with the License. }
|
|
{ You may obtain a copy of the License at }
|
|
{ }
|
|
{ http://www.apache.org/licenses/LICENSE-2.0 }
|
|
{ }
|
|
{ Unless required by applicable law or agreed to in writing, software }
|
|
{ distributed under the License is distributed on an "AS IS" BASIS, }
|
|
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
|
|
{ See the License for the specific language governing permissions and }
|
|
{ limitations under the License. }
|
|
{ }
|
|
{***************************************************************************}
|
|
unit DelphiUIAutomation.Utils;
|
|
|
|
interface
|
|
|
|
uses
|
|
winapi.windows;
|
|
|
|
/// <summary>
|
|
/// Starts a new process
|
|
/// </summary>
|
|
/// <param name=Command">Command to start</param>
|
|
function ExecNewProcess(Command, Parameters : String; Wait: Boolean) : TProcessInformation;
|
|
|
|
implementation
|
|
|
|
uses
|
|
DelphiUIAutomation.Exception,
|
|
sysutils;
|
|
|
|
function ExecNewProcess(Command, Parameters : String; Wait: Boolean) : TProcessInformation;
|
|
var
|
|
StartInfo : TStartupInfo;
|
|
ProcInfo : TProcessInformation;
|
|
CreateOK : Boolean;
|
|
|
|
begin
|
|
UniqueString(Command);
|
|
UniqueString(parameters);
|
|
|
|
{ fill with known state }
|
|
FillChar(StartInfo,SizeOf(TStartupInfo), 0);
|
|
FillChar(ProcInfo,SizeOf(TProcessInformation), 0);
|
|
StartInfo.cb := SizeOf(TStartupInfo);
|
|
CreateOK := CreateProcess(PChar(Command), PChar(parameters),
|
|
nil, nil,False,
|
|
CREATE_NEW_PROCESS_GROUP or NORMAL_PRIORITY_CLASS,
|
|
nil, nil, StartInfo, ProcInfo);
|
|
|
|
{ check to see if successful }
|
|
if not CreateOK then
|
|
begin
|
|
raise EDelphiAutomationException.Create(SysErrorMessage(GetLastError()));
|
|
end;
|
|
|
|
// LEAKING them for now
|
|
// CloseHandle(ProcInfo.hProcess);
|
|
// CloseHandle(ProcInfo.hThread);
|
|
|
|
result := ProcInfo;
|
|
end;
|
|
|
|
end.
|