собственно вот:
Запуск файлов
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;
У этой функции есть 4 параметра:
• ConstFileName – полный путь к -exe файлу.
• Params – параметр с которым надо запускать -exe файл.
• DefaultDir - Директория по умолчанию, с которой должна работать программа. Если директория не указана, то будет использоваться та, в которой находится запускаемый файл.
• ShowCmd - Способ отображения запущенного файла. К примеру ShowWindow.
Пример использования функции:
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
ExecuteFile('C:\Program Files\ArtIcons Pro\ARTICONS.exe','','C:\Program Files\ArtIcons Pro',SW_SHOW);
end;
Для работы этой функции надо в раздел USES - добавить ShellAPI.