Как запустить другую программу
Для примера посмотрите в Delphi модуль FMXUTILS.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('Notepad.exe', '', 'c:\windows', SW_SHOWNORMAL);
Примечание
Чтобы этот код заработал, необходимо добавить в uses модуль ShellAPI.