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

Для примера посмотрите в 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);

[000294]

Содержание раздела