Dateieigenschaften anzeigen

[Moyyer]

Trotzdem Danke

[pxn]

Zitat von MathiasSimmack:

Das mit den Parametern für den Tab-Index kenne ich nur von Aufrufen per "rundll", usw.

Ich steh gerade vor dem selben Problem. Wie sähe denn ein Aufruf per rundll aus ?

[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;

[pxn]

Dankeschön, das hat's getan Etwas schwieriger war es bloß, die Beschriftung des Karteireiters, den ich öffnen möchte, auszulesen.

[himitsu]

Zitat von pxn:

Etwas schwieriger war es bloß, die Beschriftung des Karteireiters, den ich öffnen möchte, auszulesen.

Genau darauf wollte ich auch mal hinweisen, denn der Name (zum Beispiel 'DateiInfo') ist ja nicht immer gleich und hängt vorallem von der Sprache ab.
Also mit festen Werten sollte man da nicht arbeiten, vorallem wenn das Programm auch mal in anderen Sprachgebieten eingesetzt werden soll.