So hab den Dienst nochmal komplett neu geschrieben.
Jetzt kann ich ihn immerhin schonmal installieren. Wird auch bei meine diensten angezeigt
und ich kann ihn starten. Jetzt hab ich folgenden Code genommen, um meinem Dienst ne beschreibung
zu geben.
Delphi-Quellcode:
procedure TService1.ServiceAfterInstall(Sender: TService);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
begin
Reg.WriteString('Description', 'This is a description for my fine Service Application.');
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
Diese Code erzeugt den Registry Eintrag "Description" an folgender Stelle:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\MeinService
Das Problem ist allerdings, dass kein registry-Eintrag erstellt wird, sprich der Dienst hat keine Beschreibung.
Hat jm ne Idee warum er das nicht macht?
@RavenIV: Ich werd das mit dem LogFile mal versuchen.
Mfg
1ceman
//Edit: Also hab mein Problem gefunden, hatte die procedure nur von hand eingetippt. Nachdem ich im Objekt Inspector unter Events auf ServiceAfterinstall geklikt habe, funktioniert die alles ohne Probleme.