Dateieigenschaften anzeigen

[bitsetter]

Moin,

den Code von gkoeder habe ich ein bisschen erweitert, jetzt kannst du den Namen der Registerkarte als Parameter der Funktion übergeben.

Delphi-Quellcode:

uses shellapi;

function ShowFILEPROPERTIESDialog(hWndOwner: HWND; const FILEName: string; Registerkarte: PChar): Boolean;
var
  Info: TShellExecuteInfo;
begin
  with Info do
  begin
    cbSize := SizeOf(Info);
    fMask := SEE_MASK_NOCLOSEPROCESS or
             SEE_MASK_INVOKEIDLIST or
             SEE_MASK_FLAG_NO_UI;
    wnd  := hWndOwner;
    lpVerb := 'PROPERTIES';
    lpFILE := pChar(FILEName);
    lpParameters := Registerkarte;
    lpDirectory := nil;
    nShow := 0;
    hInstApp := 0;
    lpIDList := nil;
  end;
  Result := ShellExecuteEx(@Info);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin                                                         //Namen der Registerkarte
  ShowFILEPROPERTIESDialog(application.Handle, 'c:\Titel.mp3', 'DateiInfo');
end;