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

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
avatar
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

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 : 19
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