Path - Windows Service
Olá a todos !
Desenvolvi um Serviço de Windows com Delphi 2006 e em seu processamento preciso verificar se existe um arquivo no mesmo diretório do Serviço.
Algo como :
if FileExists(ExtractFilePath(Application.ExeName) + ´\Parametros.ini´) then
mas isso não funciona para Serviços.
Como retornar o Path do serviço ?
Agradeço a ajuda.
Desenvolvi um Serviço de Windows com Delphi 2006 e em seu processamento preciso verificar se existe um arquivo no mesmo diretório do Serviço.
Algo como :
if FileExists(ExtractFilePath(Application.ExeName) + ´\Parametros.ini´) then
mas isso não funciona para Serviços.
Como retornar o Path do serviço ?
Agradeço a ajuda.
Felipeucc
Curtidas 0
Respostas
Rodrigoprado
14/02/2008
if FileExists(ExtractFilePath(Application.ExeName) + ´Cadastro.xml´) then
begin
showmessage(ExtractFilePath(Application.ExeName) + ´Cadastro.xml´)
end;
o código funciona sim....
tenho um serviço aqui e testei com o .xml, meu serviço esta na system 32, ai caso o arquivo na exista eu verifico o mesmo e crio.
tenta fazer o teste em um form delphi qualquer em seguida jogue no serviço, istale ele pelo comando [caminho /install] ai execute o services.msc veja se o serviço esta iniciado.
begin
showmessage(ExtractFilePath(Application.ExeName) + ´Cadastro.xml´)
end;
o código funciona sim....
tenho um serviço aqui e testei com o .xml, meu serviço esta na system 32, ai caso o arquivo na exista eu verifico o mesmo e crio.
tenta fazer o teste em um form delphi qualquer em seguida jogue no serviço, istale ele pelo comando [caminho /install] ai execute o services.msc veja se o serviço esta iniciado.
GOSTEI 0
Onjahyr
14/02/2008
Parece que é a barra que você colocou, retire ela: [b:5fa7ce77a7]´\Parametros.ini´[/b:5fa7ce77a7]
GOSTEI 0