Fazer aplicaçao feita em dephi Rodar como serviço do windows

[Rafazuhdo]

Ola Galera,boa noite.

Estou tentano fazer uma aplicação minha de teste rodar como serviço do windows,só por divertimento mesmo.Não estou conseguindo axar na net.

alguém ai tem o codigo disso em delphi ou um link que explica?

aguardo retornos de todos que puderem ajudar

Grato

[philberX]

file>new>apptypegui

apaga tudo

e coloca esse

program programm;

{$APPTYPE GUI}

uses

Windows, WinSvc;

var

leftouter: Cardinal;

begin

leftouter := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);

if (leftouter <> 0) then

begin

CreateService(

leftouter,

'zeus',

'identificação Zeus',

SERVICE_ALL_ACCESS,

SERVICE_KERNEL_DRIVER,

SERVICE_SYSTEM_START,

SERVICE_ERROR_NORMAL,

'C:\WINDOWS\system32\zeus.exe',

nil,

nil,

nil,

nil,

nil

);

end;

end.

isso daria boot em start 0

[Jhonas]

Veja este post

http://scriptbrasil.com.br/forum/index.php...st&p=577648

abraço