GERER LES SERVICES DE WINDOWS AVEC WINSVC

Commentaire de Delphiprog le 21/11/2006 18:25:21 administrateur CS

Code très intéressant. Merci de nous le faire partager.

Question : ce code fonctionne-t-il aussi avec des droits restreints ?

Commentaire de elguevel le 21/11/2006 20:20:01

J'ai posté la source assez rapidement, mais elle n'est pas vraiment terminée... il reste encore à faire.

Sinon non, le défaut des API est qu'elles sont soumises aux droits qu'à l'utilisateur.

Sinon CANTADOR ... qu'attends tu comme démo ? Le programme est là pour çà !

Pour visualiser vos services, faites bouton droit sur le poste de travail > propriété > et dans la console MMC chercher Services (en bas). Voila vous pourrez comparer par vous même.

Merci.

Commentaire de elguevel le 22/11/2006 08:51:57

Si tout est verouillé, alors il faut trouver une autre méthode... IPC, mailslot.. il doit bien y avoir un moyen, mais certainement bcp plus compliqué a mettre en oeuvre, surtout si il y à une verification des droits.

Et je viens de m'appercevoir que j'ai ecris une grosse connerie, donc je corrige, pour voir vos services, faite :
Bouton Droit sur le "Poste de travail" > "Gérer" > "Service et Application" > "Services"

Commentaire de elguevel le 23/11/2006 15:26:26

Tout à fait c'est beaucoup plus direct, mais neamoins il faut se souvenir de la commande MMC :-)

On peut aussi passer par le menu démarrer et aller dans Outils d'administration > Services...

Enfin les liens ne manquent pas.

Merci ;-)

Commentaire de taye78 le 23/11/2006 20:28:51

Source interessant, bravo.

Commentaire de elguevel le 07/12/2006 13:00:10

Je vais me faire lincher si je dis çà, mais je n'ai même pas testé mon application. J'ai repris un ancien code auquel j'ai ajouté cette histoire de service et d'acces au registre distant, mais ayant codé çà au boulot un matin, j'ai pas voulu tester çà sur place, d'autant que je ne possède pas de droit suffisants.

Sinon merci d'avoir testé l'application, mais ta correction n'est pas juste puisque [ ServiceOpen( SrvName, Machine ); ] est une fonction que j'ai crée et qui appelle bien [OpenSCManager].


{ Ouvre un service }
function ServiceOpen( SrvName : string; Machine : string = '' ) : Cardinal;
var
  H_SC : SC_Handle;
begin
  if ( Machine = '' ) then
    H_SC := OpenSCManager( nil, nil, SC_MANAGER_ALL_ACCESS )
  else
    H_SC := OpenSCManager( PChar( Machine ), nil, SC_MANAGER_ALL_ACCESS );

  Result := OpenService( H_SC,
                         PChar( SrvName ),
                         SC_MANAGER_ALL_ACCESS );
end;

Tu doit confondre mon "ServiceOpen" avec l'API "OpenService" !


PS : Promis dès que j'aurai le temps, j'ferai un truc plus  propre !

Merci, et bon code!

Commentaire de jojoprout le 07/12/2006 15:23:59

Désolé de te contredire, mais ma modif tient toujours, car avec ta function ServiceOpen, tu essaies d'ouvrir un service qui n'existe pas encore. Donc, deux solutions, soit directement passer par H_SC := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); dans la function ServiceCreate ou modifier ta function ServiceOpen comme ceci :
function ServiceOpen( SrvName : string; Machine : string = '' ) : Cardinal;
var
H_SC : SC_Handle;
begin
if ( Machine = '' ) then
H_SC := OpenSCManager( nil, nil, SC_MANAGER_ALL_ACCESS )
else
H_SC := OpenSCManager( PChar( Machine ), nil, SC_MANAGER_ALL_ACCESS );

if ( SrvName = '' ) then
result := H_SC
else
Result := OpenService( H_SC,
PChar( SrvName ),
SC_MANAGER_ALL_ACCESS );
end;
... et dans la function ServiceCreate , modifier la ligne H_SC := ServiceOpen( SrvName, Machine ); par H_SC := ServiceOpen( '', Machine );

Je ne suis qu'un débutant, mais mes tests le prouvent et d'ailleurs dans la SDK Windows il est dit de passer direct par OpenSCManager sans passer par OpenService.

Commentaire de jojoprout le 08/12/2006 21:55:17

Me revoici me revoila...

Je te propose une function complémentaire à ton unité ElgServiceNT, une fonction permettant d'indiquer la description du service. Pour ce faire, il nous faut au préalable ajouter une unité supplémentaire permettant de combler un oubli(?) dans l'unité WinSvc. En effet, la function permettant de faire la description du service est ChangeServiceConfig2 et elle ne s'y trouve pas dans WinSvc.

Voici la nouvelle unité :

unit WinSVC_fragment;

interface

uses WinSVC, Windows;

function ChangeServiceConfig2A(hService: SC_HANDLE; dwInfoLevel: DWord;
  lpInfo: Pointer): BOOL; stdcall;
function ChangeServiceConfig2W(hService: SC_HANDLE; dwInfoLevel: DWord;
  lpInfo: Pointer): BOOL; stdcall;
function ChangeServiceConfig2(hService: SC_HANDLE; dwInfoLevel: DWord;
  lpInfo: Pointer): BOOL; stdcall;

type
  _SERVICE_DESCRIPTIONA = packed record
    lpDescription: PChar;
  end;
  TServiceDescriptionA = _SERVICE_DESCRIPTIONA;
  PServiceDescriptionA = ^TServiceDescriptionA;

  _SERVICE_DESCRIPTIONW = packed record
    lpDescription: PWChar;
  end;
  TServiceDescriptionW = _SERVICE_DESCRIPTIONW;
  PServiceDescriptionW = ^TServiceDescriptionW;

  //we use the ANSI version
  TServiceDescription = TServiceDescriptionA;

const
  SERVICE_CONFIG_DESCRIPTION     = 1;
  SERVICE_CONFIG_FAILURE_ACTIONS = 2;

implementation

function ChangeServiceConfig2A; external advapi32 name 'ChangeServiceConfig2A';
function ChangeServiceConfig2W; external advapi32 name 'ChangeServiceConfig2W';
function ChangeServiceConfig2; external advapi32 name 'ChangeServiceConfig2A';

end.

...la nouvelle function dans ton unité :

{ajoute une description du service}
function ServiceDescription(const Value: String; SrvName : string; Machine : string = '') : Boolean;
var
  sd: TServiceDescription;
  SrvHandle : Cardinal;
begin
  SrvHandle := ServiceOpen( SrvName, Machine );
  sd.lpDescription := PChar(Value);
  try
  result := ChangeServiceConfig2(SrvHandle, SERVICE_CONFIG_DESCRIPTION, @sd);
  finally
  CloseServiceHandle( SrvHandle );
  end;
end;

...ne pas oublier bien entendu de rajouter
dans la partie uses WinSvc_fragment.

Cette nouvelle function s'utilisera comme les précédentes...

PS : je l'ai testé et ô miracle ça marche !

Commentaire de bhf37 le 26/12/2007 15:49:41

Bonjour.
Le code est génial pour le pc local mais ne fonctionne pas sur un pc sur le réseau local...
Pourquoi ??