用代码打开文件或者文件夹的属性

 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;

　　

转载于:https://www.cnblogs.com/solokey/archive/2011/07/21/2113348.html