在系统内以其它用户权限执行程序

 1unit main;
 2
 3interface
 4
 5uses
 6  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
 7  Dialogs,StdCtrls;
 8const   
 9  LOGON_WITH_PROFILE   =   1;
10  LOGON_NETCREDENTIALS_ONLY   =   2;   
11  function   CreateProcessWithLogon(lpUsername:   PWChar;lpDomain:   PWChar;lpPassword:   PWChar;dwLogonFlags:   DWORD;lpApplicationName:   PWChar;lpCommandLine:   PWChar;dwCreationFlags:   DWORD;lpEnvironment:   Pointer;lpCurrentDirectory:   PWChar;const   lpStartupInfo:   TStartupInfo;var   lpProcessInfo:   TProcessInformation):BOOL;stdcall;
12
13type
14  TForm1 = class(TForm)
15    Button1: TButton;
16    procedure Button1Click(Sender: TObject);
17  private
18    { Private declarations }
19  public
20    { Public declarations }
21  end;
22
23var
24  Form1: TForm1;
25
26implementation
27
28{$R *.dfm}
29function   CreateProcessWithLogon;external advapi32 name 'CreateProcessWithLogonW';
30procedure   TForm1.Button1Click(Sender:   TObject);
31var
32  wUsername,wDomain,wPassword,wApplicationName:WideString;
33  pwUsername,pwDomain,pwPassword,pwApplicationName:PWideChar;
34  StartupInfo:TStartupInfo;
35  ProcessInfo:TProcessInformation;
36begin
37  wUsername:='administrtor  ';
38  wDomain:='';
39  wPassword:='wskitxgurhkpgf';
40  wApplicationName:='cmd.exe';
41  pwUsername:=Addr(wUsername[1]);
42  pwDomain:=Addr(wDomain[1]);
43  pwPassword:=Addr(wPassword[1]);
44  pwApplicationName:=Addr(wApplicationName[1]);
45      
46  FillChar(StartupInfo,   SizeOf(TStartupInfo),   0);
47  StartupInfo.cb   :=   SizeOf(TStartupInfo);
48  if not CreateProcessWithLogon(pwUsername,pwDomain,pwPassword,LOGON_WITH_PROFILE,pwApplicationName,nil,CREATE_DEFAULT_ERROR_MODE,nil,nil,StartupInfo,ProcessInfo) then
49    RaiseLastOSError;
50end;
51
52end.
53