[FAQ] Exécuter application avec autre login/mot de passe

Version imprimable

13/01/2006, 09h32
Lung

[FAQ] Exécuter application avec autre login/mot de passe

Je cherche a exécuter une application, en tant qu'administrateur, sur un poste.
J'ai lu l'article de la FAQ (http://delphi.developpez.com/faq/?pa...cuterentantque), mais il est incomplet. :(

- Il manque un paramètre à la fonction :

Citation:

procedure runas(sUser, sDomain, sPassword, sExecutable: WideString);

Mais, ce n'est pas un problème. :)

Par contre, la ligne suivante me donne une erreur :

Code:

function CreateProcessWithLogon; external 'advapi32.dll' name 'CreateProcessWithLogonW';

Citation:

La fonction necessite un type de résultat.

Comment corriger ça ?
Merci.

Après plus d'une heure de test, j'ai enfin trouvé :twisted:

Le code complet

Code:

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
 
  function CreateProcessWithLogonW(
           lpUsername : PWideChar;
           lpDomain : PWideChar;
           lpPassword : PWideChar;
           dwLogonFlags : DWORD;
           lpApplicationName : PWideChar;
           lpCommandLine : PWideChar;
           dwCreationFlags : DWORD;
           lpEnvironment : Pointer;
           lpCurrentDirectory : PWideChar;
           Const lpStartupInfo : TStartupInfo;
           Var lpProcessInfo : TProcessInformation):Bool;stdcall;external 'advapi32.dll';
const
  LOGON_WITH_PROFILE = 1;
  LOGON_NETCREDENTIALS_ONLY = 2;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure runas(sUser, sDomain, sPassword, sExecutable : PWideChar);
var
  wUsername, wDomain, wPassword, wApplicationName: PWideChar;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  wUsername := sUser ;
  wDomain := sDomain;
  wPassword := Spassword;
  wApplicationName := PWideChar(sExecutable) ;
 
 
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;
 
  if not CreateProcessWithLogonW(wUsername,nil,wPassword,1,
                                wApplicationName,nil,CREATE_DEFAULT_ERROR_MODE,
                                nil,nil,StartupInfo,ProcessInfo) then
    RaiseLastOSError; //En cas d'erreur, donne des détails sur l'erreur
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  runas('Administrateur','','1234','c:\windows\notepad.exe');
end;

Si cela marche sans problème sur plusieurs config, il serait bien de remettre à jour cette QR ! :wink:

16/01/2006, 14h14
Lung

:bravo: :ave:
CA MARCHE !!! :merci:

Je l'ai testé sur XP Pro, et 2000 Pro.
Seul restriction, on ne peut pas donner de chemin réseau, et faut donner un chemin complet. Il ne comprend pas "regedit", par exemple. Faut dire : "C:\Windows\regedit.exe".

Sinon, effectivement, il faudrait corriger et compléter la FAQ.