عکس از 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.