AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

mstsc.exe als mstsc /admin ausführen

Ein Thema von Jerry · begonnen am 7. Mai 2012 · letzter Beitrag vom 7. Mai 2012
Antwort Antwort
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#1

mstsc.exe als mstsc /admin ausführen

  Alt 7. Mai 2012, 14:15
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;
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
5.849 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

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

  Alt 7. Mai 2012, 14:43
Warum übergibst du denn /admin nicht einfach mit als Parameter an ShellExecute?
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#3

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

  Alt 7. Mai 2012, 14:52
grins...eben genau...wie und wo wird das eingetragen? sorry...
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
36.285 Beiträge
 
Delphi 2006 Professional
 
#4

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

  Alt 7. Mai 2012, 15:23
Guck dir die Parameter an.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#5

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

  Alt 7. Mai 2012, 15:27
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
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
5.849 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

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

  Alt 7. Mai 2012, 15:34
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)
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#7

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

  Alt 7. Mai 2012, 15:45
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
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
5.849 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#8

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

  Alt 7. Mai 2012, 16:15
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.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2016 by Daniel R. Wolf