Service – Desktop

[mensana]

Empezado por l30

... aunque hay otros enlaces ... que ya no están disponibles, tal ves por eso no funciono

Yo utilizo esto:

Código Delphi [-]
uses
  Windows;

var
  HStation:HWINSTA;
  HDesktop:HDESK;

initialization

  HStation := OpenWindowStation(PChar('WinSta0'), False, MAXIMUM_ALLOWED);
  SetProcessWindowStation(HStation);

  HDesktop := OpenDesktop(PChar('Default'), 0, False, MAXIMUM_ALLOWED);
  SetThreadDesktop(HDesktop);

end.

IMPORTANTE: Debe ser una de las primeras units en inicializarse, debes ponerla una de las primeras en tu "uses".