Создания скрина из службы.

[Tip.the.besT]

Несколько недопонимаю создания скрина вот этим кодом:

procedure ScreenShot(PathToSave: string);
var
bmp: TBitmap;
DC: HDC;
SCan: TCanvas;
begin
bmp:=TBitmap.Create;
DC:=GetDC(0);
      SCan := TCanvas.Create;
      SCan.Handle := DC;
    bmp.Width := screen.Width;
    bmp.Height := screen.Height;
      Bmp.Canvas.CopyRect(Rect(0, 0, Bmp.Width, Bmp.Height), SCan,
        Rect(0, 0, Screen.Width, Screen.Height));
      bmp.SaveToFile(PathToSave);
ReleaseDC(0, DC);
bmp.Free;
scan.Free;
end;

Когда юзаю его с обычной программы, VCL, то всё нормально. Но из службы он не работает. Просто сохраняет белый холст.

Переменная DС это я как понимаю хэндл, но чего?

Что делают эти строки:

DC:=GetDC(0);
ReleaseDC(0, DC);

[Slym]

у службы свой отдельный рабочий стол на котором обычно ничего нет...

[Tip.the.besT]

Дак получается DC это хэндл рабочего стола? Как - тогда "правильный" рабочий стол отловить?

[Vapaamies]

У службы где-то должна быть галка "Взаимодействовать с рабочим столом".

[Человек_Борща]

Vapaamies, на Win7 и старше - может про это забыть. У rouse где-то был пример работы с рабочим столом из сервиса.

[asmprog]

На C++ проще дать пример:
http://pastebin.com/WhnFeAhq

WinSta0
        Default
        Disconnect
        Winlogon
Service-0x0-3e7$
Service-0x0-3e4$
Service-0x0-3e5$
SAWinSta
        SADesktop
Service-0x0-17dd2$
        sbox_alternate_desktop_0xD0C