1 var
2 sei: SHELLEXECUTEINFO;
3 FileName: string;
4 begin
5 FileName := 'C:\a.a';
6 with sei do begin
7 cbSize := SizeOf(sei);
8 fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI ;
9 Wnd := Self.Handle;
10 lpVerb := 'properties';
11 lpFile := PChar(FileName);
12 lpParameters := nil;
13 lpDirectory := nil;
14 nShow := 0;
15 hInstApp := 0;
16 lpIDList := nil;
17 end;
18 ShellExecuteEx(@sei);
19 end;