[Utilitário Delphi]Programa para criar RES e comprimir EXE

[~OwneR~ 8]

Oi gente =D, sem nada pra fazer como sempre... Então resolvi fazer esse programinha que vai ser uma mão na roda pra quem está com problemas com Resource já que é super fácil usar :cool:

 

Aviso: Esse programa é só uma GUI (interface gráfica) do UPX e o BRCC32

 

Preview:

O nome é um lixo mas o programinha até que é útil ;P

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Esse programa compila múltiplos arquivos e comprime arquivos EXE e DLL (taxa de compressão de cerca de 50%).

 

Pra usar é bem simples.... Basta clicar em procurar e escolher o(s) arquivo(s) a serem compilados, compactados ou descompactados.

Clique em Mostrar .R.C para ver as informações do RES (ID, Ext e local de cada arquivo).

ATENÇÃO: O nome do arquivo e o caminho da pasta SÓ PODE conter LETRAS, NÚMEROS, ESPAÇOS E PONTOS!!!

O UPX Packer funciona também com programas feitos em outras linguagens além do Pascal.

 

Qualquer dúvida posta ae =D

 

 

Créditos? Eu \o/

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[DragonBoss 9]

curti, programa util mesmo cara....

 

(( aproveita o animo e faz um decompiler ke preste pra nois ae )))

 

KSAPoSPokSo.. zuera...

 

mas vlw ae...

flw, abraços.

[Surfistinha£ 25]

Muito bom tinha muito gente com duvidas com criar res e comprimir exe isso irá ajudar muito obrigado por postar tbm irei usar vlwe

[lucas98 1]

Muito bom cara vlw me ajudou bastante e vou usar tbm no meu projeto que logo postarei aqui na WC

 

até

[Sihmaum~* 0]

Muito fera isso!

Ajuda pacas na hora de cria o RES pros modificadores!

 

Otima ideia man!

Fico show o programa!

 

Thanked!

Abc'z!

[tekitos123 3]

mt bom esse utilario

unico ruim de usar upx nos projetos é q o antivirus aponta o arquivo empacotado como virus

[~OwneR~ 8]

Esse programa ta compactado com o UPX e o scan dele ta limpinho =)

 

Programa atualizado \o/

[Niik 4]

Muito Bom mesmo Cara!!

 

Tah de Parabéns! vai ajudar bastante as pessoas ki tem duvida...

 

Ateh vou dar uma conferida aki ;D

[igormoita 0]

Vlw cara... ja estava ficando grilado com o BRCC32.EXE q nao funciona.

Vlw msm! Recomendarei seu sistema para outros.

[whell 0]

aew owner a procedure eu adiciono em qualquer linha do projeto e nao entendi como eu vou chamar o resource no delphi?

 

procedure Resource(Save, ID, Ext : String); seria aqui?

begin

with TResourceStream.Create(Hinstance, ID, PChar(Ext)) do

try

SaveToFile(Save);

finally

Free;

end;

end;

Resource(Local a ser salvo, ID do arquivo, Tipo do arquivo);

OU ISSO QUE VOCE COLOCOU É SO ENSINANDO COMO CRIAR O ARQUIVO .**??

[Adeuk 1]

Ele só ''diminui'' o tamanho de .exemadeindelphi?

 

Só pra saber ;/

[~OwneR~ 8]

Ele só ''diminui'' o tamanho de .exemadeindelphi?

 

Só pra saber ;/

 

Não '-', ele compacta .exe de várias linguagens.

Creio eu que suporte a maioria dos exe e dll

 

aew owner a procedure eu adiciono em qualquer linha do projeto e nao entendi como eu vou chamar o resource no delphi?

 

 

OU ISSO QUE VOCE COLOCOU É SO ENSINANDO COMO CRIAR O ARQUIVO .**??

 

Isso aí é pra você colocar no projeto pra criar o arquivo a partir da resource =)

[whell 0]

entao eu coloco o que naquele lugar da citaçao?

[~OwneR~ 8]

Olha um exemplo de como deve ficar seu projeto com a resource:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Entendeu?

[whell 0]

tipo esse Resource C:\Pasta\arquivo.exe', 'arquivo', 'exe'

ali eu coloco o nome do arquivo.exe ou do arquivo resource?? é ali que eu estou com duvida

 

o meu ta faltando a citaçao do implementation

 

e eu terei que adicionar essa citaçao em todos os buttons?

exemplo:

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Resource('C:\Desabilitar DCOM\Desativador DCOM.exe', 'Arquivo', 'exe';

 

 

procedure TForm1.Button2Click(Sender: TObject);

Repete aqui...

 

procedure TForm1.Button3Click(Sender: TObject);

repete aqui...

[~OwneR~ 8]

C:\Pasta\arquivo.exe é o lugar que o arquivo vai ser salvo

arquivo é a id do arquivo indicada no .r.c para criar a resource

exe é a extensão do arquivo indicada no .r.c para criar a resource

Se você usou o programa a ID e Extensão são mostradas na parte 'Conteúdo do .R.C' (são os dois últimos itens de cada linha)

[whell 0]

PROJECT1RES RES "C:\Users\wherlon\Desktop\Desabilitar DCOM\Project1.res"

PROJECT1~DPR ~DPR "C:\Users\wherlon\Desktop\Desabilitar DCOM\Project1.~dpr"

PROJECT1CFG CFG "C:\Users\wherlon\Desktop\Desabilitar DCOM\Project1.cfg"

PROJECT1DOF DOF "C:\Users\wherlon\Desktop\Desabilitar DCOM\Project1.dof"

PROJECT1RES RES "C:\Users\wherlon\Desktop\Desabilitar DCOM\Project1.res"

UNIT1~DDP ~DDP "C:\Users\wherlon\Desktop\Desabilitar DCOM\Unit1.~ddp"

UNIT1~DFM ~DFM "C:\Users\wherlon\Desktop\Desabilitar DCOM\Unit1.~dfm"

UNIT1~PAS ~PAS "C:\Users\wherlon\Desktop\Desabilitar DCOM\Unit1.~pas"

UNIT1DCU DCU "C:\Users\wherlon\Desktop\Desabilitar DCOM\Unit1.dcu"

UNIT1DDP DDP "C:\Users\wherlon\Desktop\Desabilitar DCOM\Unit1.ddp"

 

coloquei tudo isso dai eu pego essa ultima citaçao e coloco no lugar de arquivo

Exemplo:

 

'C:\Desabilitar DCOM\Project1.res', 'Project1', 'res'; assim?

pego todas essas ultimas citaçoes e repito esse processo adicionando eles embaixo daqui e de todos os buttons ou nao precisa por em todos?

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Resource('C:\Pasta\Arquivo.exe', 'Arquivo', 'exe');

end;

[~OwneR~ 8]

Falei errado... São os dois primeiros

Exemplo:

Resource('C:\Desabilitar DCOM\Project1.res', 'PROJECT1RES', 'RES');

Resource('C:\Desabilitar DCOM\Project1.~dpr', 'Project1.~dpr', '~DPR');

etc.

[whell 0]

entendi mas agora eu vou fazer isso em todos os buttons? ou só no button1

[~OwneR~ 8]

Se você quiser extrair tudo ao mesmo tempo coloca só em um Button senão separa em vários buttons ._.

[whell 0]

procedure TForm1.Button1Click(Sender: TObject);

begin

Resource('C:\Desabilitar DCOM\Project1.res', 'Project1.RES', 'RES');

Resource('C:\Desabilitar DCOM\Project1.~dpr', 'Project1.~DPR', 'DPR');

Resource('C:\Desabilitar DCOM\Project1.cfg', 'Project1.cfg', 'CFG');

Resource('C:\Desabilitar DCOM\Project1.dof', 'Project1.dof', 'DOF');

Resource('C:\Desabilitar DCOM\Unit1.~dpp', 'Unit1.~dpp', '~DPP');

Resource('C:\Desabilitar DCOM\Unit1.~dfm', 'Unit1.~dfm', '~DFM');

Resource('C:\Desabilitar DCOM\Unit1.~pas', 'Unit1.~pas', '~PAS');

Resource('C:\Desabilitar DCOM\Unit1.dcu', 'Unit1.dcu', 'DCU');

Resource('C:\Desabilitar DCOM\Unit1.ddp', 'Unit1.ddp', 'DDP');

with TRegistry.Create do

try

RootKey:=HKEY_LOCAL_MACHINE;

if OpenKey('SOFTWARE\Microsoft\OLE', false) then

begin

WriteString('EnableDCOM', 'N');

WriteString('EnableDCOM_BK', ReadString('EnableDCOM'));

ShowMessage('Registro editado com sucesso');

end;

finally

Free;

end;

end;

 

 

COLOQUEI ASSIM E TA DANDO ERRO SE FIZ ALGO ERRADO TENHO UMA SOLUÇAO

2M DE CORDA UMA ARVORE BEM ALTA AMARRO NO PESCOÇO PULO E PRONTO :D

 

tem esse metodo que o surfistinha ensinou mas eu nao entendo esse negocio de nome_do_recurso e o arquivo_extraido porque tipo como vou saber o arquivo extraido? e o recurso é o Resource.res?

 

procedure TForm1.FormCreate(Sender: TObject);

var

Stream: TResourceStream;

begin

Stream := TResourceStream.Create(hInstance,

'NOME_DO_RECURSO', RT_RCDATA);

try

Stream.SaveToFile('c:\diretorio\arquivo_extraido.e xt');

finally

Stream.Free;

end;

end;

 

[~OwneR~ 8]

Diz o erro que ta dando...

Só uma coisa, não vejo necessidade de criar resource da source...

[Lezer 1]

Eu tenho uma duvida que nunca consiguo resolve e assim:eu fassp o .res e depois eu fasso oq para embutilo no .exe??eu nunca consiguo:(.