クラス名を取得する

■必要なコンポーネント

■使用するAPI関数

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

■Form1のクラス名を取得する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　//バッファを確保
　ClassName : array [0..256] of char;
begin

　//クラス名を取得
　GetClassName(Form1.Handle,ClassName, Sizeof(ClassName));
　ShowMessage(ClassName);

end;




Win32APIのページへ



ホーム PV ランキング