Fórum Extrai Ícones de aplicativos #230321
06/05/2004
0
A algum tempo atráz ví um utilitário que extrai os ícones de executáveis. Agora que estou necessitando, não consigo localizar. Sabe onde posso encontrar?
{}
Andreza
Deza.re
Curtir tópico
+ 0Posts
06/05/2004
Dopi
infelizmente todos os links que constavam no programa não estão funcionando. Mas é um shareware (que nunca expira) muito conhecido, fácil de achar na rede...
Gostei + 0
06/05/2004
Jasig Aurumalfa
O termo correto seria freeware...
Grátis, livre para todos...
Gostei + 0
06/05/2004
Cebikyn
O termo correto seria freeware...
Grátis, livre para todos...[/quote:d248729b71]
Não necessariamente. Realmente existem programas Shareware (comerciais, que requerem pagamento) que são distribuidos desta forma (sem restrições, nem prazo limite e a única restrição é a consciência do usuário). Não sei se é o caso do programa citado, mas existe este tipo de coisa.
Gostei + 0
06/05/2004
Dopi
O cebikyn definiu corretamente... No inicio do programa aparece uma nag screen com um contador regressivo de 10 a 0.... Mas só isso... Até hoje nunca deixou de funcionar....
Coisa de europeu... Lá eles conseguem vender o programa mesmo sem travas complicadas...
Aqui no Brasil, se fizermos isso... morremos de fome... Em alguns shareware que lancei (na epoca do DOS), inseri um vendedor interno... Suas mensagems apareciam cada vez com mais frequencia... mas não tinha trava de registros ou numero de dias... conclusao, vendi somente umas 15 copias do programa :-)
Gostei + 0
07/05/2004
Deza.re
Ficaram discontindo share. . . . e quem esta certo quem está errado, se expira ou não, e a informação mesmo que eu presiso?
Muto bom mesmo !!!
Gostei + 0
07/05/2004
Dopi
Consegui acha-lo pra download... Se não, posso manda-lo para o seu e-mail...
Gostei + 0
07/05/2004
Chico Gois
Beleza!
Voce conhece o site [url=http://www.clubedelphi.com.br/]ClubeDelphi[/url]? (Não o FORUM)
La em aplicativos em um programinha que extrai icones de [b:e56b1ec51b]DLL e Executaveis[/b:e56b1ec51b]
Senão servir, procure em www.superdownloads.com.br que la voce deve encontrar.
T+
Gostei + 0
07/05/2004
Cebikyn
uses
ShellAPI; // <-- Importante!!!
{...}
procedure TForm1.Button1Click(Sender: TObject);
const
ExtrFileName = ´C:\WINNT\system32\moricons.dll´;
var
icon: TIcon;
Numero, i: Integer;
begin
Icon := TIcon.Create;
try
// Pega o número de ícones:
Numero := ExtractIcon(Handle, PChar(ExtrFileName), UINT(-1));
ShowMessage(Format(´Tem ¬d ícones no arquivo´, [Numero]));
// Extrai os ícones:
for i := 1 to Numero do begin
// Extrai um ícone:
Icon.Handle := ExtractIcon(Handle, PChar(ExtrFileName), i);
// Desenha o ícone no form:
DrawIcon(Form1.Canvas.Handle, 10, i * 40, Icon.Handle);
end;
finally
Icon.Free;
end;
end;É claro que o código pode ser adaptado para salvar os ícones, permitir que se escolham quantos ícones serão salvos, etc...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)