Discussion :

[Lung]

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

La fonction necessite un type de résultat.

Comment corriger ça ?
Merci.

[portu]

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

Le code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Lung]

CA MARCHE !!!

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.