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.

[himitsu]

Zitat von himitsu:

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

Darum auch immer nur das Passende zusammen verwenden.
Ansonsten muß der String ANSI-Unicode entsprechend gecastet werden.

Beispiel:
String (AnsiString) mit PAnsiChar ging in Delphi vor 2009,
aber aber 2009 passt String (UnicodeString) und PAnsiChar nicht mehr.

Hätte man früher aber die "richtigen" Typen zusammen verwendet, dann würde es mit Umstellung auf Unicode keine Probleme geben.