画面をキャプチャして表示する

■使用するコンポーネント

■使用するAPI関数

■その他

■ソースは下記のようになります。

■画面をキャプチャして表示する処理
procedure TForm1.Button1Click(Sender: TObject);
begin

　//スクリーン全体をキャプチャする
　Application.ProcessMessages;
　keybd_event(VK_SNAPSHOT, 1, 0, 0);

　//イメージへ表示する
　Image1.Picture.Assign(Clipboard);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

　//アクティブウインドウ全体をキャプチャする
　Application.ProcessMessages;
　keybd_event(VK_SNAPSHOT, 0, 0, 0) ;
　
　//イメージへ表示する　
　Image1.Picture.Assign(Clipboard);

end;




Win32APIのページへ



ホーム PV ランキング