CreateProcessAsUser

[Luckie]

Zitat von toyoman:

Was ist das für eine Unit MPUWinnt?

http://www.delphipraxis.net/internal...=269008#269008
Meine eigenen Header-Übersetzungen, damit ich nicht den ganzen Jedi Kram brauche.

[NicoDE]

Zitat von Luckie:

Delphi-Quellcode:

  si.cb := SizeOf(TStartupInfoW);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := 1;
  si.lpReserved := nil;
  si.lpDesktop := nil;
  si.lpTitle := nil;

Die Struktur TStartupInfo hat noch ein paar mehr Felder... ZeroMemory/FillChar sollte man sich angewöhnen - auch wenn ein 'Flags'-Feld theoretisch die Gültigkeit der Felder vorgeben sollte (in der Praxis sieht es leider anders aus).

[Luckie]

OK. Ich habe es jetzt so:

Delphi-Quellcode:

uses MpuWinNT;

function CreateProcessAsLogon(const User, PW, Application, CmdLine: WideString):
  Boolean;
var
  si           : TStartupInfoW;
  pif          : TProcessInformation;
begin
  ZeroMemory(@si, sizeof(TStartupInfo));
  si.cb := SizeOf(TStartupInfoW);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := 1;
  Result := CreateProcessWithLogonW(PWideChar(User), nil, PWideChar(PW),
    LOGON_WITH_PROFILE, nil, PWideChar(Application +' '+CmdLine),
    CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not CreateProcessAsLogon('Administrator', 'passwort', 'Notepad.exe', 'c:\boot.ini') then
    RaiseLastOSError;
end;

[toyoman]

Zitat von Luckie:

Zitat von toyoman:

Was ist das für eine Unit MPUWinnt?

http://www.delphipraxis.net/internal...=269008#269008
Meine eigenen Header-Übersetzungen, damit ich nicht den ganzen Jedi Kram brauche.

cool, sehr gute Idee