用其他身份執行程式 |
|
|
|
GE
一般會員   發表：4 回覆：16 積分：14 註冊：2003-01-23 發送簡訊給我 |
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; const
LOGON_WITH_PROFILE = 1;
LOGON_NETCREDENTIALS_ONLY = 2; 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; type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} function CreateProcessWithLogon; external advapi32 name 'CreateProcessWithLogonW'; procedure TForm1.Button1Click(Sender: TObject);
var
wUsername, wDomain, wPassword, wApplicationName: WideString;
pwUsername, pwDomain, pwPassword, pwApplicationName: PWideChar;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
wUsername := 'administrator';
wDomain := '';
wPassword := '123456';
wApplicationName := 'cmd.exe';
pwUsername := Addr(wUsername[1]);
pwDomain := Addr(wDomain[1]);
pwPassword := Addr(wPassword[1]);
pwApplicationName := Addr(wApplicationName[1]); FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
StartupInfo.cb := SizeOf(TStartupInfo);
if not CreateProcessWithLogon(pwUsername,pwDomain,pwPassword,LOGON_WITH_PROFILE,
pwApplicationName,nil,CREATE_DEFAULT_ERROR_MODE,
nil,nil,StartupInfo,ProcessInfo) then
RaiseLastOSError;
end; end.
可帶入其他使用者的Profile，使用上比LogonUser、CreateProcessAsUser簡單，省去設定SE_TCB_NAME privilege
|
|
ying0515
中階會員  發表：90 回覆：168 積分：81 註冊：2003-01-04 發送簡訊給我 |
|
|
bruce0211
版主 發表：157 回覆：668 積分：279 註冊：2002-06-13 發送簡訊給我 |
|
|
chfamy
中階會員 發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
|
|
GE
一般會員 發表：4 回覆：16 積分：14 註冊：2003-01-23 發送簡訊給我 |
|
|
Snooze
一般會員 發表：18 回覆：21 積分：7 註冊：2002-06-03 發送簡訊給我 |
引言:引言: 在 Linux 下,我能體會及了解使用其它身分執行程式的意義 但在 Windows 下,我不了解使用其它身分執行程式有什麼用途 可否請長官指點迷津一下.. 謝謝請不要叫我長官啦 因為我看到站上有人在問，所以我就試看看，至於有什麼用途我目前還是沒有什麼頭緒
------
Nice to meet u |
|
alanktop
一般會員 發表：7 回覆：21 積分：5 註冊：2005-03-01 發送簡訊給我 |
發表時間：2003-06-24 14:32:28
IP:61.30.xxx.xxx 未訂閱
系統時間：2024-11-26 3:55:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |