Viciados BR
Olá bem vindo a o Viciados BR

Se você ainda não e membro Cadastre-se Agora
Ou se você já é membro, Logue-se .
e veja nosso Conteúdo.
Pois conteúdo aqui é o que não falta !
Painel de Usuário

Mensagens: 0


Alterar
Ver
Tópicos e mensagens

Contador de Visitas

Tutorial Como fazer Um extrator de icones

Ir em baixo

Tutorial Como fazer Um extrator de icones Empty Tutorial Como fazer Um extrator de icones

Mensagem por Juuse em Qua Set 21, 2011 6:00 pm

Código:
ShellAPI;
2 - Coloque 3 buttons(' paleta Standard ')
Coloque 1 edit (' paleta Standard ')
Coloque 1 panel (' paleta Standard ')
Coloque 1 Image1 (' paleta Additional ')
Coloque 1 OpenDialog1 (' paleta Dialogs ')
Coloque 1 SaveDialog1 (' paleta Dialogs ')
Coloque 1 XPManifest1 (' paleta Win32' )

3 - Nos buttons, coloque os nomes, respectivamente:
Button 1 - Procurar
Button 2 - Extrair
Button 3 - Salvar

4 - Coloque o panel do tamanho que quiser, dentor do panel adicione a Imagem' (' paleta Additional ') do tamanho que quiser, dentro do panel.

5 - Adicione o edit e tire o nome Edit1.



6 - Programando:
- No botão Procurar adicione o seguinte código:
Código:
Var
arq : String;
begin
if opendialog1.Execute
then arq := opendialog1.FileName;
Edit1.Text := Arq;
end;




- No botão Extrair adicione o seguinte código:
Código:
Image1.Picture.Icon.Handle:= ExtractIcon(Handle,PChar(Edit1.Text),0);


- No botão Salvar adicione o seguinte código:

Código:
if Savedialog1.Execute then
image1.Picture.SaveToFile(Savedialog1.FileName + '.ico');



Pronto está salvo. Como usar:
Clique em procurar, procure o programa com o icone e seleciona, clique em extrair, se aparecer a imagem clique em salvar digite o nome e pronto, está salvo.

Até a proxima flwss !!

Créditos:
~ Juuse - Pelo Tutorial
Juuse
Juuse
Membro Avançado
Membro Avançado

Post Post : 170
Reputação Reputação : 0
Data de Inscriçao Data de Inscriçao : 19/04/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Tutorial Como fazer Um extrator de icones Empty Re: Tutorial Como fazer Um extrator de icones

Mensagem por BGamer em Qui Set 22, 2011 2:58 pm

Muito Bom Tópico Continue assim!

BGamer
Membro de Bronze
Membro de Bronze

Post Post : 384
Reputação Reputação : 14
Data de Inscriçao Data de Inscriçao : 19/07/2011
Idade : 20
Localização : No Neet Forum

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum