フリーソフト

« [BCB] caseでローカル変数の初期化がとばされた? | トップページ | [Delphi] 独自のリソースを使う »

[Delphi] 画面をキャプチャする

procedure TScreenSaverForm.FormCreate(Sender: TObject);
var
  dc:hdc;
begin
  //キャプチャ
  Image1.Picture.Bitmap.width:=screen.Width;
  Image1.Picture.Bitmap.height:=screen.Height;

  dc:=GetDC(0);
  BitBlt(Image1.Picture.Bitmap.Canvas.Handle,0,0,
           Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height,
           dc,0,0,SRCCOPY);
  ReleaseDC(0,dc);
end;

« [BCB] caseでローカル変数の初期化がとばされた? | トップページ | [Delphi] 独自のリソースを使う »

Delphi」カテゴリの記事

画像関連」カテゴリの記事

コメント

この記事へのコメントは終了しました。