عكس از desktop

[Delphi&Kylix_2939]

با سلام به دوستان عزيز و تبريك سال نو
مي خواستم بدونم
1-چطور ميشه از desctop عكس گرفت
2- چطور ميشه عكس گرفته شده رو مات كرد مثل زمان كه مي خواهيم Trun Off كنيم و كامپيوتر رو خاموش كنيم

[Felony]

به وسیله کد زیر میتونید از میز کار عکس بندازید و به وسیله Canvas یک شئ Image میتونید تغیرات دلخواهتون رو روی تصویر اعمال کنید :

Procedure GetSnapshot(Address: String);
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
Bitmap: TBitmap;
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
Bitmap := TBitmap.Create;
with Bitmap do
begin
Width := Screen.Width;
Height:= Screen.Height;
PixelFormat := pfDevice;
Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopR ect);
SaveToFile (Address);
Free;
end;
DesktopCanvas.Free;
ReleaseDC(GetDeskTopWindow,DeskTopDC);
end;