Простой путь вызова CreateProcess()
function CreateProcessSimple(sExecutableFilePath: string ): string;
var
pi: TProcessInformation;
si: TStartupInfo;
begin
FillMemory(@si, sizeof(si), 0);
si.cb := sizeof(si);
CreateProcess(
nil,
PChar( sExecutableFilePath ), // путь к исполняемому файлу:
nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil,
si, pi
);
// После вызывающего кода,
// как код ожидания выполнения процесса,
// Вы должны идти сюда
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;
Теперь все, что нужно сделать - это только вызвать CreateProcessSimple(), скажем, чтобы запустить Блокнот Windows:
CreateProcessSimple('notepad');
Комментарии