uses shellapi; 
 
procedure Eigenschaften(Datei: string); 
var 
  inf: _SHELLEXECUTEINFOA; 
  so: integer; 
begin 
  so := SizeOf(_SHELLEXECUTEINFOA); 
  zeromemory(@inf, so); 
  with inf do begin 
    cbSize := so; 
    lpFile := PChar(Datei); 
    lpVerb := 'properties'; 
    fMask := SEE_MASK_INVOKEIDLIST; 
  end; 
  ShellExecuteEx(@inf); 
end; 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Eigenschaften('c:\windows\explorer.exe'); 
end;