Запуск приложений

← →
Юрий Зотов (2002-01-16 18:28) [4]

> Dimaond Cat

В коде есть лишнее, а вот освобождения хэндлов как раз и нет. Зачем гробить ресурсы системы?

procedure TForm1.Button1Click(Sender: TObject);
var
si: Tstartupinfo;
p: Tprocessinformation;
begin
FillChar(Si, SizeOf( Si ), 0);
Si.cb := SizeOf(Si);
if Createprocess(nil,"notepad.exe",nil,nil,false,0,nil,si,p) then
begin
CloseHandle(p.hThread);
Waitforsingleobject(p.hProcess,infinite);
CloseHandle(p.hProcess)
end
end;

Так, думаю получше будет. Только выполнять этот код надо в дополнительном потоке, чтобы не создавался эффект "зависания" программы.

> dark

Это вряд ли... А если и правда не запускает, то причина не в этом коде, а в том, как он используется.

Запуск приложений Найти похожие ветки