Простой путь вызова 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');
Комментарии