
28.02.2009, 08:46
|
 |
Активный
|
|
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
|
|
Код:
Код:
uses ShellApi;
procedure Run(exe:string);
begin
ShellExecute(0,'open',PAnsiChar(exe),nil,PAnsiChar(ExtractFilePath(exe)),SW_SHOW);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Run('C:\WINDOWS\system32\dxdiag.exe');
end;
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
|