Как запустить другую программу

Для примера посмотрите в Delphi модуль FMXUTIL.PAS:

function ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;

begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

Пример вызова:

executeFile('maker.exe','text_file','c:\maker', SW_SHOWNORMAL);
 
« Предыдущая статья   Следующая статья »