Impersonate Programm als Admin starten

[cherry]

Zitat von Luckie:

Aber dann wäre ja Impersonate überflüssig oder?

Richtig... ich war ein bisschen verwirrt so früh am Morgen. Hab hier im Forum gefunden was ich gesucht habe, habe aber grad den Link verloren... Der Code war glaube ich sogar von dir. Wie auch immer so hab ichs jetzt gemacht:

Delphi-Quellcode:

uses
  SysUtils, Classes, Windows;

type 
  _STARTUPINFOW = record 
    cb: DWORD;
    lpReserved: Pointer; 
    lpDesktop: Pointer; 
    lpTitle: Pointer; 
    dwX: DWORD; 
    dwY: DWORD; 
    dwXSize: DWORD; 
    dwYSize: DWORD; 
    dwXCountChars: DWORD; 
    dwYCountChars: DWORD; 
    dwFillAttribute: DWORD; 
    dwFlags: DWORD; 
    wShowWindow: Word; 
    cbReserved2: Word; 
    lpReserved2: PByte; 
    hStdInput: THandle; 
    hStdOutput: THandle; 
    hStdError: THandle; 
  end; 
  TStartUpInfoW = _STARTUPINFOW; 
  PStartUpInfoW = ^_STARTUPINFOW; 

function Runas(USER,DOMAIN,PW,EXE:PWideChar):boolean;

const
  LOGON_WITH_PROFILE = $00000001; 

function CreateProcessWithLogonW(lpUsername, lpDomain, lpPassword: PWideChar; 
  dwLogonFlags: dword; lpApplicationName, lpCommandLine: PWideChar; 
  dwCreationFlags: dword; lpEnvironment: pointer;
  lpCurrentDirectory: PWideChar; lpStartupInfo: PStartUpInfoW; 
  lpProcessInfo: PProcessInformation): boolean; stdcall; 
  external 'advapi32.dll'; 

implementation

function Runas(USER,DOMAIN,PW,EXE:PWideChar):boolean;
var
  si  : TStartupInfoW; 
  pif : TProcessInformation;

begin
  ZeroMemory(@si,sizeof(si));
  si.cb          := sizeof(si); 
  si.dwFlags     := STARTF_USESHOWWINDOW; 
  si.wShowWindow := 1; 

  if DOMAIN <> 'nil' then
  begin
    result         := CreateProcessWithLogonW(USER,DOMAIN,
      PW,LOGON_WITH_PROFILE,nil,
      EXE,
      CREATE_DEFAULT_ERROR_MODE,nil,nil,@si,@pif);
  end
  else
  begin
     result         := CreateProcessWithLogonW(USER,nil,
      PW,LOGON_WITH_PROFILE,nil,
      EXE,
      CREATE_DEFAULT_ERROR_MODE,nil,nil,@si,@pif);
  end;

end;