Desktops ermitteln

[Angel4585]

Moin!

Sagt mal wie kann ich die Namen aller verfügbaren Desktops ermitteln? Muss doch irgendwo ne Art Liste geben die ich auslesen kann oder?

Viele Grüße

:angel:

[ralfschwalbe]

Hallo,

meiner Meinung nach mit EnumDesktops.

[Dezipaitor]

jo geht ganz leicht in etwa so mit der JWSCL :

Delphi-Quellcode:

uses
  JwaWindows,
  JwsclWinStations,
  JwsclTypes,
  JwsclStrings;

var WinSta : TJwSecurityWindowStation;
    Names : TJwTJwStringArray;
    i : Integer;
begin
  WinSta := TJwSecurityWindowStation.Open('winsta0',true,WINSTA_ENUMDESKTOPS);
  try
    Names := WinSta.DesktopNames;

    for i := low(Names) to high(Names) do
      Writeln(Names[i]);

  finally
    WinSta.Free;
  end;

  readln;
end.