checkboxとradiobuttonの印刷について (ID:35654)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

いろいろ試したのですが、まだできません。
ふらっと別サイトで見つけたソースを試したところパラメータが間違っていると
GetLastErrorを自分のプログラムで実行したときと同じエラーが出ました。

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow';
var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp : TBitmap;
  wnd : cardinal;
  rec : TRect;
begin
  wnd := FindWindow('TScreenRecurF', nil); // get the handle
                                           // of your window
  GetWindowRect(wnd, rec);
  bmp := TBitmap.Create;
  try
      bmp.Width := rec.Right - rec.Left;
      bmp.Height := rec.Bottom - rec.Top;
      bmp.PixelFormat := pf24bit;
      PrintWindow(wnd, bmp.Canvas.Handle, 0);
      ShowMessage(SysErrorMessage(GetLastError));
      Image1.Picture.Assign(bmp);
  finally
      bmp.Free;
  end;
end;

end.

サイトにはButton1Clickの中身だけのソースが上がっていたのですが、
interfaceの最後にprintwindowの宣言をして、button1とimage1をデザインに
加えるだけだと思うのどこで間違えているのか考えているのですがわかりません。
どなたか教えていただけませんでしょうか。
長文になりましたがよろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る