Hi,
habe ich bereits drin. Habe es jetzt korrigiert und in den Service geschrieben:
Delphi-Quellcode:
procedure TInfoTunesService.ServiceCreate(Sender: TObject);
begin
CoInitialize(nil);
FTunesInstance := CoiTunesApp.Create;
end;
procedure TInfoTunesService.ServiceDestroy(Sender: TObject);
begin
CoUninitialize;
end;
Der Service startet immer noch nicht, d.h. er lädt und lädt (in der Systemsteuerung => Dienste) und gibt nach einiger Zeit folgende Fehlermeldung aus:
Zitat:
Der Dienst "..." auf "Lokaler Computer" konnte nicht gestartet werden.
Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder Steuerungsanforderung
Und wie gesagt vermute ich, dass da irgendwo noch eine
EOleSysError-
Exception geworfen wird, die aber nicht zum Vornschein kommt (da man Dienste ja nur schwer debuggen kann, kann ich hier auch nur vermuten, dass der Fehler immer noch existiert, nur an anderer Stelle).
Chris