Eigene Shell und LogIn in Win XP dauert ewig

[Sunlight7]

Delphi-Quellcode:

procedure HideLogOnScreen;
   var EventName:PChar;
       EventHandle:DWord;
begin
   EventName:=nil;

   If IsWinXP then
      EventName:='msgina: ShellReadyEvent';

   If IsWinVista then
      EventName:='ShellDesktopSwitchEvent';

   If EventName=nil then Exit;

   EventHandle:=OpenEvent(EVENT_MODIFY_STATE, False, EventName);
   If EventHandle>0 then begin
      SetEvent(EventHandle);
      CloseHandle(EventHandle);
   end;
end;