Tutorial Como fazer Um extrator de icones

por Juuse 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

por BGamer Qui Set 22, 2011 2:58 pm

Muito Bom Tópico Continue assim!

Tutorial Como fazer Um extrator de icones

Tutorial Como fazer Um extrator de icones

Re: Tutorial Como fazer Um extrator de icones