Man kann auch einfach die WinStats enumerieren und gucken, ob eine WinStat0 dabei ist, das ist die einzige interaktive WinStat die es gibt.
Delphi-Quellcode:
procedure EnumWinStats(WindowsStation: PChar; lParam: LPARAM); stdcall;
begin
Form1.ListBox1.Items.Add(WindowsStation);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindowStations(@EnumWinStats, 0);
end;