Programm als bestimmter Nutzer starten

[Moombas]

Moin zusammen,

ich starte ein externes Programm per CreateProcessWithLogonW. Gibt es hier die Möglichkeit, den "Arbeitspfad" (wie beim shellexecute auch möglich) des externen Programms fest zu legen? Ich konnte dazu aktuell leider nicht viel finden, das externe Programm muss jedoch zwingend in seinem Ursprungspfad ausgeführt werden.

Evtl. bin ich auch einfach blind.

Edit: Fehler gefunden... -.-

[Luckie]

Und was war jetzt die Lösung?

[himitsu]

Er war blind.

lpCurrentDirectory siehe CreateProcessWithLogonW

[KodeZwerg]

Ich sollte meinen Code auch mal überarbeiten, mehr als alt und ausgedient.

Delphi-Quellcode:

function RunAs(const Handle: Hwnd; const Path, Params: string): Boolean;
var
  sei: TShellExecuteInfoA;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.Wnd := Handle;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.lpFile := PAnsiChar(Path);
  sei.lpParameters := PAnsiChar(Params);
  sei.nShow := SW_SHOWNORMAL;
  Result := ShellExecuteExA(@sei);
end;

[himitsu]

Sowas von alt ... stimmt.

Nichtmal in deinem Delphi 2010 wird er funktionieren, da die grundlegensten Dinge falsch sind,
was übrigens auch der Hauptgrund ist, weswegen viele Codes seit dem Jahre 2009 plötzlich abrauchen.

Aber keine Sorge, denn der Compiler wird das Problem freundlich mit Warnungen beglücken, (nur blöd, dass zu viele alle Warnungen einfach ignorieren)
denn du gibst einen "veränderlichen" compilerabhängigen Typen in einen statischen Cast und Funktionsaufruf rein
und im Jahre des Delphi 2009 änderte sich dieser Typ, weswegen es nun knallt.

String -> PChar -> WinApi
AnsiString -> PAnsiChar -> WinApiA
WideString/UnicodeString -> PWideChar -> WinApiW

[KodeZwerg]

Delphi-Quellcode:

function RunAs(const Handle: Hwnd; const Path, Params: string): Boolean;
var
  {$ifdef UNICODE}
    sei: TShellExecuteInfoW;
   {$else UNICODE}
    sei: TShellExecuteInfoA;
  {$endif UNICODE}
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.Wnd := Handle;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.nShow := SW_SHOWNORMAL;
  {$ifdef UNICODE}
    sei.lpFile := PWideChar(WideString(Path));
    sei.lpParameters := PWideChar(WideString(Params));
    Result := ShellExecuteExW(@sei);
   {$else UNICODE}
    sei.lpFile := PAnsiChar(AnsiString(Path));
    sei.lpParameters := PAnsiChar(AnsiString(Params));
    Result := ShellExecuteExA(@sei);
  {$endif UNICODE}
end;

Danke himitsu, nun gibt es keine Warnungen und es macht noch das selbe, es führt ein programm im admin-modus aus.

[Dalai]

@KodeZwerg: Nein, immer noch falsch. PChar gehört da hin, wenn du TShellExecuteInfo und String statt TShellExecuteInfoW und WideString als Typen benutzt.

Auf einem Delphi mit Unicode macht es keinen Unterschied, aber auf einem Delphi ohne kommen mit dem Code wieder (zu Recht) Warnungen. Wenn du PChar verwendest, funktioniert es in allen Delphis, ob Unicode oder nicht.

Grüße
Dalai

[KodeZwerg]

Ja da brauch ich noch Nachhilfe, mal wird einem gesagt nimm die ohne A/W sondern entscheide per PAnsi/PWide welche Version intern aufgerufen wird (mit d2010 wählt der dann W), nun wieder das ich bei A/W bleiben soll.

Wie ists denn nun richtig?

Habe code updated, so nun korrekt?
(nochmal updated, hatte deine widestring hinweis zuerst vergessen)

[himitsu]

Im Prinzip stimmt es sozusagen schon, aber die IFDEFs können weg, wenn man gleich den passenden Typ verwendet.


compilerabhängig:

Delphi-Quellcode:

function RunAs(const Handle: Hwnd; const Path, Params: string): Boolean;  
var
  sei: TShellExecuteInfo;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.Wnd := Handle;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.nShow := SW_SHOWNORMAL;
  sei.lpFile := PChar(Path);
  sei.lpParameters := PChar(Params);
  Result := ShellExecuteEx(@sei);
end;

String ist ein compilerabhängiger Typ, wie z.B. Integer (früher mal 16 Bit und dann 32 Bit ... allerdings wurde der Integer für 64 Bit-CPUs eingefroren und dafür was Neues erfunden, welches in Delphi sich NativeInt nennt)

fest, immer als ANSI: (das Gleiche bei Unicode, mit Wide/W)

Delphi-Quellcode:

function RunAs(const Handle: Hwnd; const Path, Params: AnsiString): Boolean;
var
  sei: TShellExecuteInfoA;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.Wnd := Handle;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.nShow := SW_SHOWNORMAL;
  sei.lpFile := PAnsiChar(Path);
  sei.lpParameters := PAnsiChar(Params);
  Result := ShellExecuteExA(@sei);
end;

Windows bietet für fast alle WinAPIs zwei Versionen der Funktionen an (ShellExecuteExA und ShellExecuteExW)
und Delphi stellt schon immer diese APIs auch als compilerabhängige Variante an. (ShellExecuteEx als Alias für ShellExecuteExA oder ShellExecuteExW ... vor D2009 und ab D2009)

[KodeZwerg]

@himitsu, ich habe leider gerade nichts zum testen aber noch eine Frage zu dem Unicode, würde bei PChar da nicht Unicode kaputt gehen?
Mein Beispiel betreffend, code wird in russland oder china ausgeführt, würden da dann nicht die multibyte chars zu single byte und das resultat wäre nicht das was man eigentlich wollte?