Bonjour,

Nous avons sous Delphi 5/7 un outils qui nous permets de lister les services Windows (jusqu'a présent Windows 2003 32Bits) pour pouvoir par programmes faire un Start/Stop/Restart de certains services.

Nous venons d'avoir un nouveaux Server sous Windows 2008 64 Bits. Le soft ne fonctionne plus car les services concernés sont eux aussi en 64Bits. Et cela semble poser problèmes.... j'arrive bien a lister des services mais pas tous.

Il y a t'il une astuces pour obtenir la liste des services et faire un Start/Stop/restart dessus ?

Voila ma ligne de code pour obtenir la liste des services :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
EnumServicesStatus(FSC, SERVICE_WIN32, SERVICE_STATE_ALL, Tbl[1], SizeOf(Tbl), card, nbsvc, card2);
Pour demarrer un service
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
OS := OpenService(FSC, zService, SERVICE_ALL_ACCESS);
Result := WinSvc.StartService(OS, 0, ArrayOfArguments);
Pour arreter un service
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
OS := OpenService(FSC, zService, SERVICE_ALL_ACCESS);
Result := ControlService(OS, SERVICE_CONTROL_STOP, lpServiceStatus);
Avez vous une idée ?

Cordialement

Stéphane


[RESOLU]

Il suffit en faite de lancer le prorgramme en Administrateur... rien a voir avec Windows 64 Bits....