Запуск внешних програм

← →
Павел (2003-01-15 14:03) [0]

Уважаемые господа не могли бы вы подсказать как запускать внешние программы .

← →
Reindeer Moss Eater (2003-01-15 14:05) [1]

Наверное так же точно как и внутренние. (Если такие есть) :)

← →
passm (2003-01-15 14:06) [2]

uses ShellAPI...
См. Help: Win32 Programmer reference -> ShellExecute

← →
France (2003-01-15 14:07) [3]

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.

← →
Павел (2003-01-15 14:08) [4]

passm большое вам спасибо

Запуск внешних програм Найти похожие ветки