标签：Addr 内以 PWChar CreateProcessWithLogon 执行程序 StartupInfo TStartupInfo 权限 LOGON

 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

转载于:https://www.cnblogs.com/zhaoyong/archive/2009/07/03/1516003.html

标签：Addr,内以,PWChar,CreateProcessWithLogon,执行程序,StartupInfo,TStartupInfo,权限,LOGON
来源： https://blog.csdn.net/weixin_33923762/article/details/94541306

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。