URLDownloadToFileA

[Pack]

Здравствуйте. есть значит такой код

function UrlDownLoadToFile(Caller,URL,FileName: PAnsiChar; Reserved: LongWord; StatusCB: Pointer): LongWord;
stdcall; external 'urlmon.dll' name 'URLDownloadToFileA';

UrlDownLoadToFile(nil, 'http://host.com/file.exe', 'c:\1.exe', 0, nil);

все прекрасно работает, но мне нужно так

procedure DownloadFile;
var
  urlmon: THandle;
  UrlDownLoadToFile : function(Caller,URL,FileName: PAnsiChar; Reserved: LongWord; StatusCB: Pointer): LongWord;
begin
  urlmon := LoadLibrary('urlmon.dll');
  UrlDownLoadToFile := GetProcAddress(GetModuleHandle('urlmon.dll'), 'URLDownloadToFileA');
  UrlDownLoadToFile(nil, 'http://host.com/file.exe', 'c:\1.exe', 0, nil);
  FreeLibrary(urlmon);
end;

но данный код не работает, падает с ошибкой. подскажите что я делаю не так, заранее спасибо!

[p51x]

UrlDownLoadToFile := GetProcAddress(GetModuleHandle('url mon.dll'), 'URLDownloadToFileA');

Зачем ГетМодулеХендл здесь? ЛоадЛайбрери просто так была?

Раз уже лезете в винапи, то читайте ж мсдн и примеры смотрите.

[Человек_Борща]

Все фигня. Где проверка на валидные дескрипторы? if hLib <> 0 then, if Func <> nil then