نکات برنامه نویسی در دلفی

[Keramatifar]

Screen Shots
با استفاده از این کد میتوانید تصویر Screen را در یک فایل Bitmap ذخیره نمائید. اگر نمیخواهید از یک برنامه فعال دلفی استفاده کنید میتوانید یک 'Application.Minimize;' در Beginning پروسیجر وارد کنید.

uses

  Windows, Graphics, Forms;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  DC: HDC;

  Canvas: TCanvas;

  MyBitmap: TBitmap;

begin

  Canvas := TCanvas.Create;

  MyBitmap := TBitmap.Create;

  DC := GetDC(0);

 

  try

    Canvas.Handle := DC;

    with Screen do

    begin

      {/ detect the actual height and with of the screen /}

      MyBitmap.Width := Width;

      MyBitmap.Height := Height;

 

      {/ copy the screen content to the bitmap /}

      MyBitmap.Canvas.CopyRect(Rect(0, 0, Width, Height), Canvas,

                               Rect(0, 0, Width, Height));

      {/ stream the bitmap to disk /}

      MyBitmap.SaveToFile('c:\windows\desktop\sc  reen.bmp');

    end;

 

  finally

    {/ free memory /}

    ReleaseDC(0, DC);

    MyBitmap.Free;

    Canvas.Free

  end;

end;