Discussion :

[ouiouioui]

Bonjour, j'ai suivi le tuto http://pascalfonteneau.developpez.co...ta/uac/#LIII-C sur l'uac.

j'ai un programme sans droit admin qui doit lancer un exe qui requiert les droits admin.

et sur xp ou seven sa me dit fichier introuvable

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
procedure RunAsAdmin(hWnd : HWND; aFile : String; aParameters : String);
Var
 Sei : TShellExecuteInfoA;
begin
 Fillchar(sei,SizeOf(sei),0);
 sei.cbSize := SizeOf(sei);
 sei.Wnd    := hWnd;
 sei.fMask  := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
 sei.lpfile := PChar(aFile);
 sei.lpVerb := 'runas';
 sei.lpParameters := PChar(aParameters);
 sei.nShow := SW_SHOWNORMAL;
 if not ShellExecuteEx(@sei) then
  RaiseLastOSError;
end;
RunAsAdmin(Application.Handle,'c:\test.exe','');

le chemin est bon à 100% sur le disque c nommé test.exe en minuscule bien que la casse sur windows il y en a pas. Et sa le lance pas, seven idem, alors qu'un shellexecute normal c'est bon sur xp mais pas sur seven
merci.

[Franck SORIANO]

Utilise TShellExecuteInfo au lieu de TShellExecuteInfoA, ça pourra alors fonctionner quelle que soit la version de Delphi.

Mais perso, je viens de faire le test avec ton code (enfin avec TShellExecuteInfo, je suis en D2010) et ça fonctionne parfaitement :
W7 me demande si je veux bien effectuer l'élévation de privilèges. Si je dit oui, l'exe se lance. Si je dis non, j'obtiens une erreur 1223.

[ouiouioui]

merci beaucoup cela fonctionne