Reiniciar Um Serviço Do Windows 2000/xp

[geforce]

alguém sabe como reinicio um serviço do windows 2000/XP via codigo do delphi ?

[Rafael GAGA]

Da uma olhada nesse tópico, e até simples fazer o que você quer

http://scriptbrasil.com.br/forum/index.php...68&hl=reiniciar

Abraços

[s3c]

uses WinSvc;
var HSC,HS:THandle; p:PChar;
begin
  HSC := OpenSCManager(nil, nil, SC_Manager_Connect);
  HS  := OpenService(HSC, 'Nome_do_Serviço', SC_Manager_All_Access);
  p    := nil;
  StartService(HS, 0, p); // starta o serviço sem parâmetros
  CloseServiceHandle(HS);
  CloseServiceHandle(HSC);
end;

Se tiver parâmetros, você tem que colocar o número deles no segundo parâmetro de StartService e no PChar um array de strings terminando com #0 como última string.