ウィンドウハンドルの値は，実行中にウィンドウを再生成しない限り，
変わることはありません．
実行中のウィンドウの再生成は，例えば・・・
RecreateWnd については，サイト内を検索してみてくださいませ．
procedure TForm1.Button1Click(Sender: TObject);
var
LhWnd1 : HWND;
LhWnd2 : HWND;
Ltext : string;
begin
LhWnd1 := Handle;
RecreateWnd;
LhWnd2 := Handle;
Ltext := '$'+ IntToHex(LhWnd1, 8) + sLineBreak + '$' + IntToHex(LhWnd2, 8);
MessageBox(Handle, PChar(Ltext), 'ウィンドウハンドル', MB_ICONINFORMATION);
end;
 |