Советы по Delphi

         

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


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

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