画面をキャプチャする

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

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

Button1
Button2
Image1

■使用するAPI関数

keybd_event（特殊キーの状態を設定する）

■その他

Uses節にClipbrdを追加

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

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

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のページへ