Текущий архив: 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.039 c
