Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   mstsc.exe als mstsc /admin ausführen (https://www.delphipraxis.net/168143-mstsc-exe-als-mstsc-admin-ausfuehren.html)

Jerry 7. Mai 2012 13:15

mstsc.exe als mstsc /admin ausführen
 
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;

jaenicke 7. Mai 2012 13:43

AW: mstsc.exe als mstsc /admin ausführen
 
Warum übergibst du denn /admin nicht einfach mit als Parameter an ShellExecute?

Jerry 7. Mai 2012 13:52

AW: mstsc.exe als mstsc /admin ausführen
 
grins...eben genau...wie und wo wird das eingetragen? sorry...

Luckie 7. Mai 2012 14:23

AW: mstsc.exe als mstsc /admin ausführen
 
Guck dir die Parameter an.

Jerry 7. Mai 2012 14:27

AW: mstsc.exe als mstsc /admin ausführen
 
ja ich weiss ja, aber das geht nicht...

ShellExecute(Handle, 'open', PChar(app), PChar(FileName), nil, SW_SHOW);

Die Parameter PChar(Filename) wie wird den Filename mit "/admin" ergänzt? Ich finde dazu nichts passendes...

Grüsse Jerry

jaenicke 7. Mai 2012 14:34

AW: mstsc.exe als mstsc /admin ausführen
 
Ok, ich merke schon... wir müssen bei den absoluten Grundlagen anfangen...
Delphi-Quellcode:
// einen String benutzt man z.B. so:
var
  a: string;
begin
  a := 'Test';

// Wenn man nun zwei aneinanderhängen will, kann man dafür den Operator + nutzen:
  a := a + 'Test2';

// hier soll /admin an Filename gehängt werden, also:
'/admin ' + Filename

// Natürlich ebenfalls auf PChar gecastet:
PChar('/admin ' + Filename)

Jerry 7. Mai 2012 14:45

AW: mstsc.exe als mstsc /admin ausführen
 
Super vielen Dank!
Ich hatte es zuerst auch so, doch ohne den Leerschlag nach Admin...
Darum habe ich geglaubt, dass der Parameter ganz anderst übergeben werden müsste.
Hat jetzt 1a geklappt!

Grüsse vom Bodensee :-)

jaenicke 7. Mai 2012 15:15

AW: mstsc.exe als mstsc /admin ausführen
 
Zitat:

Zitat von Jerry (Beitrag 1165199)
Ich hatte es zuerst auch so, doch ohne den Leerschlag nach Admin...
Darum habe ich geglaubt, dass der Parameter ganz anderst übergeben werden müsste.

Dann schreib das doch beim nächsten Mal einfach gleich dazu wie du es versucht hast. Du meinst dann vielleicht, dass es doof wirkt oder so, aber im Gegenteil sehen wir dann sofort wo eigentlich das Problem ist, nämlich hier nur, dass die Trennung zwischen den Parametern fehlt. Deshalb lässt sich an Hand von fehlgeschlagenen Versuchen meist viel besser helfen und vor allem das Verständnis-/Umsetzungsproblem an sich klären. ;-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:48 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz