[Rokuell]

Код:

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;