Показать сообщение отдельно
  #2  
Старый 28.02.2009, 08:46
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 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
Ответить с цитированием