Delphi : take screenshot (make vista compatible)

I have a program that pushes a service which takes a screenshot from the current screen of the computer and the main program takes this screenshot from the harddrive. The service is only a few lines of code and it works perfect on windows 2000 and windows XP. Adjustements needed: It does not work on windows vista (returns a blank screen) It does not work with multiple screens (only returns one screen) you need to adjust it so it returns all screens as one jpeg: Current service code: procedure [login to view URL](Sender: TService); var myDesktop : [login to view URL]; DesktopCanvas : TCanvas; DC : hDC; myjpg : TJPEGImage; begin myDesktop := [login to view URL]; [login to view URL] := [login to view URL]; [login to view URL] := [login to view URL]; DC := GetDC (0); DesktopCanvas := [login to view URL]; [login to view URL] := DC; [login to view URL] (Rect (0, 0, [login to view URL], [login to view URL]), DesktopCanvas , Rect (0, 0, [login to view URL], [login to view URL])); [login to view URL]; ReleaseDC (0, DC); myjpg := [login to view URL]; [login to view URL](myDesktop); [login to view URL] := 80; [login to view URL]; [login to view URL]; [login to view URL]('c:\[login to view URL]'); [login to view URL]; [login to view URL]; end; You will get the full program on acceptance of the bid.