Ver Mensaje Individual
  #15  
Antiguo 04-08-2011
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
El siguiente método te servirá para importar APIs dináminamente y ejecutarlas:

Código Delphi [-]
type
  PURLDownloadToFile = function(pCaller: Pointer; szURL, szFileName: PCHAR; dwReserved: Cardinal; lpfnCB: Pointer): Cardinal; stdcall;

var
  URLDownloadToFile: PURLDownloadToFile;
  hLib: Integer;

begin
  hLib:= LoadLibrary('urlmon.dll');
  URLDownloadToFile:= GetProcAddress(hLib, 'URLDownloadToFileA');
  URLDownloadToFile(nil, PCHAR('http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg'), PCHAR('FileName.jpg'), 0, nil);
  FreeLibrary(hLib);
end.

Saludos.
Responder Con Cita