Dateieigenschaften anzeigen

[gkoeder]

Hallo!

Probiers mal hiermit:

Code:

function ShowFILEPROPERTIESDialog(hWndOwner: HWND; const FILEName: string): 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 := nil; 
    lpDirectory := nil; 
    nShow := 0; 
    hInstApp := 0; 
    lpIDList := nil; 
  end; 
  Result := ShellExecuteEx(@Info); 
end;

also z.B.

ShowFILEPROPERTIESDialog(Application.Handle, 'd:\testfile.txt');

Greetings,
Gerald