1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

 
procedure ausfuehren(AnzeigeLetzterBefehl, modal: boolean; icon: Hicon); 
var 
  flg, own: longint; 
begin 
  if modal then own := application.handle else own := 0; 
  if AnzeigeLetzterBefehl then flg := 0 else flg := 2; 
  shrundialog(own, icon, 0, 'Ausführen', 
    'Geben Sie den Namen eines Programms, Ordners, ' + 
    'Dokuments oder einer Internetressource an.', flg); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure ausfuehren(AnzeigeLetzterBefehl, modal: boolean; icon: Hicon);
var
  flg, own: longint;
  Text, Title: String;
begin
 Title := 'Ausführen';
 Text := 'Geben Sie den Namen eines Programms, Ordners, ' +
         'Dokuments oder einer Internetressource an.';
  if modal then own := application.handle else own := 0;
  if AnzeigeLetzterBefehl then flg := 0 else   flg := 2;
  shrundialog(own, icon, 0, PChar(Title[1]), PChar(Text[1]), flg);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

function SHRunDialog (Owner, IconHandle, Unknow: longint; Title, Prompt: LPWSTR; Flags: longint): longint;
  stdcall; external 'Shell32.dll' INDEX 61;
 
procedure RunDialog(hOwner: THandle; const Caption, Text:String; ShowLastCmd: Boolean; ShowModal: boolean; hIcon: HIcon);
var
  Flag, own: longint;
begin
  if ShowModal then
    own := hOwner
  else
    own := 0;
  if ShowLastCmd then
    Flag := 0
  else
    Flag := 2;
  SHRunDialog(hOwner, hIcon, 0, PWideChar(WideString(Caption)), PWideChar(WideString(Text)), Flag);
end;
 

procedure TForm1.Button1Click(Sender: TObject);
begin 
  RunDialog(Handle, 'Ausführen', 'Wählen Sie eine Anwendnung aus', True, True, Icon.Handle);
end;