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.