Descargar archivo con Delphi

[[escafandra]]

Código Delphi [-]
type
  PShellExecute = function(hwnd: Cardinal; lpOperation, lpFile, lpParameters, lpDirectory: PCHAR; nShowCmd: integer): Cardinal; stdcall;

var
  ShellExecute: PShellExecute;
  hLib: Integer;

begin
  hLib:= LoadLibrary('Shell32.dll');
  ShellExecute:= GetProcAddress(hLib, 'ShellExecuteA');
  ShellExecute(0, PCHAR('open'), PCHAR('File.jpg'), nil, nil, SW_NORMAL);
  FreeLibrary(hLib);
end.

Saludos.

[[escafandra]]

Un detalle que me llama la atención, usas Application.Handle Si tu Aplicación es API pura no usa la VCL y por lo tanto no la variable global Application

¿El AV salta con cualquier proyecto?. Obsérvalo.

Saludos.

[Gothem]

Vale, he encontrado una alternativa no detectada.

Muchas gracias a todos, sois una gran comunidad.

He aquí la alternativa para ejecutar un archivo:

Código Delphi [-]
function DelphiExecute(sFilePath:string;Hidden:bool):bool;
var
Vari: olevariant;
begin
vari:= CreateoleObject('Shell.Application');
vari.shellexecute(sFilePath, '', '', 'open', abs(strtoint(booltostr(not Hidden))));
DelphiExecute:= true;
end;