windows eigenschaften-dialog für datenträger anzeigen lassen

[KodeZwerg]

Guten Tag liebe Delphi Gemeinde!

Ich stehe irgendwie mal wieder vor einem Problem, vielleicht ist es was total einfaches, nur komme ich einfach nicht auf einen grünen Zweig....
Folgendes von swissdelphicenter.ch ist gegeben:

Delphi-Quellcode:

{ This code shows the standard file properties dialog like in Windows Explorer }

uses
  shellapi;

// Thanks to Peter Below (TeamB) for this code
procedure PropertiesDialog(FileName: string);
var
  sei: TShellExecuteInfo;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.lpFile := PChar(FileName);
  sei.lpVerb := 'properties';
  sei.fMask  := SEE_MASK_INVOKEIDLIST;
  ShellExecuteEx(@sei);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute then
    PropertiesDialog(Opendialog1.FileName);
end;

Bei Microsoft werde ich einfach nicht fündig wie man den Laufwerks-Eigenschaften-Dialog anzeigen lassen kann.
Weiß jemand wie das geht und kann mich vielleicht in die richtige Richtung stubsen?

Danke für's lesen und jeden Tipp!