为TEdit添加IE的地址自动完成功能

自动补全文件路径和名称。
function SHAutoComplete(h:hwnd;f:dword):dword;stdcall;external 'Shlwapi.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
SHAutoComplete(Edit1.Handle,0);
end;