ファイルのプロパティダイアログを表示する

ファイルのプロパティダイアログを表示する

下記のようにプロパティダイアログを表示させます。

※ハードディスク全容量2GB・・・（＾＾；

■使用するAPI関数

ShellExecuteEx （プロパティダイアログを表示する）

■その他

Uses節にShellAPIを追加しましょう。

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

■ファイルのプロパティダイアログを表示する

procedure

 TForm1.Button1Click(Sender:
TObject);

var

　SH : TSHELLEXECUTEINFO;

begin



　SH.cbSize :=Sizeof(SH);

　SH.fMask :=SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or 　SEE_MASK_FLAG_NO_UI;

　SH.lpVerb :='Properties';

　SH.Wnd :=Form1.handle;

　SH.lpParameters :=nil;

　SH.lpDirectory :=nil;

　SH.lpIDList := nil;

　//「プロパティダイアログ」を表示するファイル名

　SH.lpFile :='C:\windows\雲.bmp';



　//表示する

　ShellExecuteEx(@SH);

end;

Win32 APIのページへ