Author: David Johannes Rieger 

How can I show the property dialog for a file?

Answer:
1   
2   procedure ShowPropertiesDialog(Filename: string);
3   var
4     SEI: TShellExecuteInfo;
5   begin
6     FillChar(SEI, SizeOf(SEI), 0);
7     with SEI do
8     begin
9       cbSize := SizeOf(SEI);
10      lpFile := PChar(Filename);
11      lpVerb := 'properties';
12      fMask := SEE_MASK_INVOKEIDLIST;
13    end;
14    ShellExecuteEx(@SEI);
15  end;