function SHFileProperties(handle:hwnd;uflags:dword;name:pchar;str:pchar):dword;stdcall;external 'shell32.dll' index 178;

uFlags=1/2;

name:Filename;

str:好像不起作用

其实只是调用ShellExecuteEX

看下面的例子

function ShowFileProperties(FileName: String; Wnd: HWND):Boolean;

var

 sfi: TSHELLEXECUTEINFO;

begin

 with sfi do

 begin

   cbSize := SizeOf(sfi);

   lpFile := PAnsiChar(FileName);

   Wnd := Wnd;

   fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI;

   lpVerb := PAnsiChar('properties');

   lpIDList := nil;

   lpDirectory := nil;

   nShow := 0;

   hInstApp := 0;

   lpParameters := nil;

   dwHotKey := 0;

   hIcon := 0;

   hkeyClass := 0;

   hProcess := 0;

   lpClass := nil;

 end;

 Result := ShellExecuteEX(@sfi);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 ShowFileProperties('c:\', Handle);

end;