| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запуск файла [D7, XP]

Gizza ©   (2006-06-25 15:58:00) 

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

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

---

Noname27   (2006-06-25 23:02:00) [1]

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

---

Leonid Troyanovsky   (2006-06-25 16:02:00) [2]

> Gizza ©   (25.06.06 15:58)  

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


ShellExecuteEx with SEE_MASK_DOENVSUBST

--
Regards, LVT.

---

Наверх