Форум: "Потрепаться";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Павел   (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 большое вам спасибо

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.009 c