バージョン情報ダイアログ手抜き版

ダイアログでよく使うもののひとつにバージョン情報ダイアログがある。しかしDelphiでは新規作成でバージョン情報のダイアログを作ることは出来るがダイアログコンポーネントにはバージョン情報用のダイアログが無い。そこでWindowsAPIを使用してかなり手抜きのバージョン情報ダイアログを作ってみましょう。
※usesにShellAPIを追加する必要があります。

■ ShellAbout の使用例

procedure TForm1.Button1Click(Sender: TObject); begin ShellAbout(Handle, PChar('アプリケーション名'), '', 0); end;