系统属性对话框

For Win2000：

function SHFileProperties(handle:hwnd;uflags:dword;name:pchar;str:pchar):dword;stdcall;external 'shell32.dll' index 178;

SHFileProperties(handle,2,'','');