Cita:
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".