EnumServicesStatus & Windows 64

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:

---

EnumServicesStatus(FSC, SERVICE_WIN32, SERVICE_STATE_ALL, Tbl[1], SizeOf(Tbl), card, nbsvc, card2);

---

Pour demarrer un service

Code:

---

1 2 3

OS := OpenService(FSC, zService, SERVICE_ALL_ACCESS); Result := WinSvc.StartService(OS, 0, ArrayOfArguments);

---

Pour arreter un service

Code:

---

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....