1

unit

 main;

 2

 3

interface

 4

 5

uses

 6

  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

 7

  Dialogs,StdCtrls;

 8

const

   

 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

13

type

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

23

var

24

  Form1: TForm1;

25

26

implementation

27

28

{

$R *.dfm

}

29

function

   CreateProcessWithLogon;

external

 advapi32 name 

'

CreateProcessWithLogonW

'

;

30

procedure

   TForm1.Button1Click(Sender:   TObject);

31

var

32

  wUsername,wDomain,wPassword,wApplicationName:WideString;

33

  pwUsername,pwDomain,pwPassword,pwApplicationName:PWideChar;

34

  StartupInfo:TStartupInfo;

35

  ProcessInfo:TProcessInformation;

36

begin

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;

50

end

;

51

52

end

.

53