procedure TForm1.Button1Click(Sender: TObject);
var s : Pchar;
begin
s:='c:\web\';
WpPost (handle, 1,s,nil, nil,nil, nil, WPF_SHOWPAGE_ALL);
end;