mstsc.exe als mstsc /admin ausführen

[Jerry]

Hallo zusammen

Ich habe folgenden Delphi - Code (dieser sollte ich erweitern, dass das Programm mstsc.exe als mstsc /admin aufgerufen wird.)
Vielen Dank schon im Voraus! Grüsse Jerry

Delphi-Quellcode:

procedure Tfrm_Kunden.Button15Click(Sender: TObject);
var
  app: string;
  FileName: string;
begin
  FileName := 'C:\temp\connect.rdp';
  with TStringList.Create do
    try
      Add('full address:s:' + edt_RemoteRDCExtIPAdresse.Text);
      Add('username:s:' + edt_RemoteRDCBenutzer.Text);
      Add('domain:s:' + edt_RemoteRDCDomaene.Text);
      if edt_RemoteRDCPassWort.Text <> '' then
      begin
        Add('password 51:b:' + CryptRDPPassword(edt_RemoteRDCPassWort.Text));
      end;
      SaveToFile(FileName);
    finally
      Free;
    end;
  app := 'mstsc.exe';
  ShellExecute(Handle, 'open', PChar(app), PChar(FileName), nil, SW_SHOW);
end;