Duvida Services Application!

[senhanorton 0]

Boa tarde !

Estou tentando criar um serviço no windows, para que quando ele seja "Startado" ele execute um aplicativo que desenvolvemos.

Mas quando "Starto" o serviço nada acontece e o aplicativo não é aberto.

O que estou fazendo errado ?

 

Abaixo segue o código (bem simples) :

 

unit UService2;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,

ExtCtrls,shellapi;

 

type

TService1 = class(TService)

Timer1: TTimer;

procedure ServiceStart(Sender: TService; var Started: Boolean);

private

{ Private declarations }

public

function GetServiceController: TServiceController; override;

{ Public declarations }

end;

 

var

Service1: TService1;

 

implementation

 

{$R *.DFM}

 

procedure ServiceController(CtrlCode: DWord); stdcall;

begin

Service1.Controller(CtrlCode);

end;

 

function TService1.GetServiceController: TServiceController;

begin

Result := ServiceController;

end;

 

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);

begin

ShellExecute(HWND_DESKTOP, 'OPEN', PChar('C:\XXX\xx\teste.exe'), PChar('') , nil, SW_SHOWNORMAL);

end;

 

end.

[DarkShade 52]

Para que isso? Se quer apenas para isso, coloque no registro.

[senhanorton 0]

Na realidade ele receberá uma função mt maior do que isso. Vou tentar explicar o que ocorreu.

Utilizo um sistema de terceiros que roda em pendrive em um certo servidor, a onde me conecto remotamente para reiniciar um certo aplicativo que está interligado com o sistema que roda no pendrive. Mas ao executar o aplicativo remotamente, via WTS o aplicativo não reconhece o pendrive, então preciso ir fisicamente até o servidor e reiniciar o aplicativo.

 

Precisava então de primeiro momento conseguisse iniciar via serviço do windows.

Obrigado pela atenção !

[DarkShade 52]

Mas realmente não precisa de serviço, basta colocar o programa para iniciar com o Windows pelo registro.