Ich weiß nicht ob es hilft, mir ist aber noch dunkel in Erinnerung, dass Delphi5 Probleme mit Diensten hat.
Probier mal folgendes in der Projektdatei:
Delphi-Quellcode:
procedure BreakProcessSecurity; // (;-P)
var SD: PSECURITY_DESCRIPTOR;
begin
GetMem(SD,SECURITY_DESCRIPTOR_MIN_LENGTH);
if not InitializeSecurityDescriptor(SD,SECURITY_DESCRIPTOR_REVISION) then RaiseLastWin32Error;
if not SetKernelObjectSecurity(GetCurrentProcess,DACL_SECURITY_INFORMATION,SD) then RaiseLastWin32Error;
FreeMem(SD);
end;
begin
BreakProcessSecurity;
Application.Initialize;
............
Die Units Windows und SysUtils müssen noch in die Uses - Klausel.
Der Tipp ist noch aus dem Jahr 2000
