[Alegun]

Проверено под W7 на D7

Код:

uses 
 ShellAPI;
procedure ShowDiskProperties( Path: string );
var
 SEInfo: SHELLEXECUTEINFO;
begin
 FillChar( SEInfo, SizeOf( SEInfo ), 0 );
 SEInfo.cbSize := SizeOf( SHELLEXECUTEINFO );
 with SEInfo do
  begin
   fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI;
   Wnd := Application.Handle;
   lpFile := PChar( Path );
   lpVerb := 'Properties';
   lpParameters := '';
   hInstApp := 0;
   lpIDList := nil;
   lpDirectory := PChar( Path );
   nShow := SW_SHOWNORMAL;
   end;
 ShellExecuteEx( @SEInfo );
end;

Пример вызова

Код:

...
ShowDiskProperties( 'c:' );
...