Mam taki kod:
var
Can: TCanvas;
Bit : TBitmap;
Bitmap : TBitmap;
JPG : TJPEGImage;
begin
try
Can := TCanvas.Create;
Can.Handle := GetWindowDC(GetDesktopWindow);
Bit := TBitmap.Create;
Bit.Width := Screen.Width;
Bit.Height := Screen.Height;
Bit.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height),
Can,
Rect (0, 0, Screen.Width, Screen.Height));
try
Bit.SaveToFile('C:\Apache2\htdocs\pulpit.bmp');
except
raise Exception.Create(
'Blad w zapisie pliku...');
end;
finally
Can.Free;
Bit.Free;
end;
try
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\Apache2\htdocs\pulpit.bmp');
JPG := TJPEGImage.Create;
JPG.Assign(Bitmap);
JPG.SaveToFile('C:\Apache2\htdocs\pulpit.jpg');
finally
Bitmap.Free;
JPG.Free;
end;
application.Terminate;
I jak robi screena to bez programu samurize
czyli normalnie pulpit tylko nie widać tego programu ;-)
(jak ktoś nie wie co to to samurize niech wejdzie na http://213.192.81.151/pulpit.jpg [to to z pogodą i czasem i temp.])