显示对象的属性对话框

下面的代码可以显示操作系统中的某些对象的属性对话框。

适用于Windows 2000或以上；

具体的可以参看MSDN；

const

 SHOP_FILEPATH = $0002;

function SHObjectProperties(hwnd:HWND;dwType: DWORD; szObject, szPage: LPCWSTR): Boolean; stdcall; external 'shell32.dll';

procedure TForm1.Button1Click(Sender: TObject);

begin

 SHObjectProperties(Handle, SHOP_FILEPATH, PWideChar(Widestring('C:\')), ' 硬件');

end;