1:
2:

function CreateProcessAsLogon(const User, PW, Application, CmdLine:
  WideString): LongWord;                    

1:

function GetCompName: string;                    

1:
2:

function RunDlgFunc(hDlg: hWnd; uMsg: DWORD; wParam: wParam; lParam: lParam):
  bool; stdcall;                    

1:
2:

function CreateProcessAsLogon(const User, PW, Application, CmdLine:
  WideString): LongWord;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

var
  Form1: TForm1;  l:longword;

implementation

{$R *.dfm}

function CreateProcessAsLogon( User, PW, Application, CmdLine: WideString):
  LongWord;
var
  si           : TStartupInfoW;
  pif          : TProcessInformation;
  s: WideString;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb := sizeof(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := 1;

  SetLastError(0);

  if CmdLine = '' then
    s := Application
  else
    s := Application+' "'+CmdLine+'"';

  CreateProcessWithLogonW(PWideChar(User), nil, PWideChar(PW),
    LOGON_WITH_PROFILE, nil, PWideChar(s),
    CREATE_DEFAULT_ERROR_MODE, nil, nil, @si, @pif);
  Result := GetLastError; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
l:=createprocessaslogon('Screenex','nept','C:/WINDOWS/system32/cmd.exe','net send PC104 uschi');
showmessage(inttostr(l));
showmessage(syserrormessage(l));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls, mpuwinnt;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
   
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1; l1,l2:longword;

implementation

{$R *.dfm}

function CreateProcessAsLogon( User, PW, Application, CmdLine: WideString):
  LongWord;
var
  si           : TStartupInfoW;
  pif          : TProcessInformation;
  s: WideString;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb := sizeof(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := 1;

  SetLastError(0);

  if CmdLine = '' then
    s := Application
  else
    s := Application+' "'+CmdLine+'"';

  CreateProcessWithLogonW(PWideChar(User), nil, PWideChar(PW),
    LOGON_WITH_PROFILE, nil, PWideChar(s),
    CREATE_DEFAULT_ERROR_MODE, nil, nil, @si, @pif);
  Result := GetLastError; 
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.enabled:=false;
l1:=createprocessaslogon('Admin','admin','sc config messenger start= demand','sc config messenger start= demand');
l2:=createprocessaslogon('Admin','admin','net start messenger','net start messenger');
if (l1<>0) or (l2<>0) then
begin
messagedlg('ERROR: CODE1 '+inttostr(l1),mterror,[mbok],0);
messagedlg('ERROR: CODE2 '+inttostr(l2),mterror,[mbok],0);
close;
end
else begin
messagedlg('Windows Messenger Service started succesfully.',mtinformation,[mbok],0);
close;
end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
application.BringToFront;
end;

end.