Текущий архив: 2006.07.16;
Скачать: CL | DM;

Вниз

Запуск файла   Найти похожие ветки 

← →
Gizza ©   (2006-06-25 15:58) [0]

Доброго времени.
Как сделать так, чтобы при нажатии на Button запускалось приложение со следующим путем: %windir%\system32\xxx.exe
P.S.
именно %windir%, а не c:\windows

Заренее спасибо.

---

← →
Leonid Troyanovsky ©   (2006-06-25 16:02) [1]

> Gizza ©   (25.06.06 15:58)  

> именно %windir%, а не c:\windows


ShellExecuteEx with SEE_MASK_DOENVSUBST

--
Regards, LVT.

---

← →
Noname27   (2006-06-25 23:02) [2]

procedure TForm1.Button1Click(Sender: TObject);
const
 BYTESCOUNT = 32;
var
 Bytes :array [0..BYTESCOUNT - 1] of char;
 SysDir :string;
begin
 GetSystemDirectory(@Bytes, BYTESCOUNT);
 SysDir := StrPas(@Bytes);
 WinExec(PChar(SysDir + "\xxx.exe"), SW_SHOWNORMAL);
 end;

---

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

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.043 c