Programm als bestimmter Nutzer starten

[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?

[Schokohase]

Warum sollte da etwas kaputt gehen?

Unicode-Delphi (alles ab Delphi 2009):

string ist ein Alias für UnicodeString .
PChar ist ein Alias für PWideChar .

ANSI-Delphi (alles vor Delphi 2009):

string ist ein Alias für AnsiString .
PChar ist ein Alias für PAnsiChar .

[KodeZwerg]

Danke Euch Drei, nun ists angekommen. Super Erklärung, das hilft sehr!