عکس از desktop ویندوز

[masoode]

سلام
چطوری میشه از صفحه desktop (یا یک پنجره خاص) عکس گرفت. نه با کلید print sceern با دستور نوشتن توی دلفی
با تشکر

[ara_prg]

GetDesktopWindow

[MiRHaDi]

سلام
اگه توضیحاتشم میخوای از Windows SDK Help بخون
بای

[masoode]

مرسی
ولی این دستور هندل به من میده. این رو چطوری میتونم به عکس تبدیل کنم؟

[mkalone]

procedure TForm1.ScreenShot(x: integer; y: integer; Width: integer; Height: integer; bm: TBitmap);
var
dc: HDC;
lpPal: PLOGPALETTE;
begin
{test width and height}
if ((Width = 0) or (Height = 0)) then
begin
exit;
end;
bm.Width := Width;
bm.Height := Height;
{get the screen dc}
dc := GetDc(0);
if (dc = 0) then
begin
exit;
end;
{do we have a palette device?}
if (GetDeviceCaps(dc, RASTERCAPS) and RC_PALETTE = RC_PALETTE) then
begin
{allocate memory for a logical palette}
GetMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
{zero it out to be neat}
FillChar(lpPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0);
{fill in the palette version}
lpPal^.palVersion := $300;
{grab the system palette entries}
lpPal^.palNumEntries := GetSystemPaletteEntries(dc, 0, 256, lpPal^.palPalEntry);
if (lpPal^.PalNumEntries <> 0) then
begin
{create the palette}
bm.Palette := CreatePalette(lpPal^);
end;
FreeMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
end;
{copy from the screen to the bitmap}
BitBlt(bm.Canvas.Handle, 0, 0, Width, Height, Dc, x, y, SRCCOPY);
{release the screen dc}
ReleaseDc(0, dc);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
bm : TBitmap;
begin
bm := TBitmap.Create;
ScreenShot(0, 0, Screen.Width, Screen.Height, bm);
bm.SaveToFile('c:\Test.bmp');
Image1.Picture.Bitmap:=bm;
bm.free;
end;

[masoode]

مرسی :thnx: :thnx: :thnx: :thnx:

[francosoft]

program GetScrnJpg;

uses
Windows, Graphics, jpeg;

{$R *.RES}

var
B: TBitmap;
S: string;

begin

B := TBitmap.Create;

B.Width := GetSystemMetrics(SM_CXSCREEN); {Screen.Width}
B.Height := GetSystemMetrics(SM_CYSCREEN); {Screen.Height}

BitBlt(B.Canvas.handle, 0, 0, B.Width, B.Height, GetDc(0), 0, 0, SRCCOPY);


if ParamStr(1) <> '' then
S := ParamStr(1) + '.jpg'
else
S := 'Screen.jpg';

with TJPEGImage.Create do
begin
Assign(B);
CompressionQuality := 75;
SaveToFile(S);
free;
end;

B.Free;

end.