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

涛

转自：http://www.solokey.cn/
var
  sei: SHELLEXECUTEINFO;
  FileName: string;
begin
  FileName := 'C:\a.a';
  with sei do begin
    cbSize := SizeOf(sei);
    fMask :=  SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI ;
    Wnd := Self.Handle;
    lpVerb := 'properties';
    lpFile := PChar(FileName);
    lpParameters := nil;
    lpDirectory := nil;
    nShow := 0;
    hInstApp := 0;
    lpIDList := nil;
  end;
  ShellExecuteEx(@sei);
end;