Сообщество Чайников

Вопрос

Нужен примерчик функции запуска проги с параметрами. Конкретнее: получаю строчку, в которой прописан полный путь к файлу и параметры. Надо запустить это. С помощью ShellExecute не получается, а писать процедуру разделения пути и параметров нет времени, да и лень.

Ответ

procedure RunProgram(FileName:string);
var
PI:TProcessInformation;
SI:TStartupInfo;
const
dwFlags:dword=CREATE_NEW_PROCESS_GROUP or CREATE_DEFAULT_ERROR_MODE;
begin
FillChar(si,sizeof(si),0);
fillchar(pi,sizeof(pi),0);
with si do
begin
cb:=sizeof(si);
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWDEFAULT;
end;
CreateProcess(nil,PChar(FileName),nil,nil,false,
dwFlags,nil,nil,SI,PI);
closehandle(pi.hThread);
closehandle(pi.hProcess);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
RunProgram('notepad.exe c:\boot.ini');
end;

A.Z.