Desculpe a minha resposta ser um pouco rude, mas acho que vc vai ter que procurar no Google, ou em outros sites como Torry.net, ou em mensagens antigas da lista. Existem momentos onde não dá pra se esperar que a solução caia do céu.
Mas como hj eu estou de bom humor, vou ajudá-lo em parte. Consulte os links abaixo e com um pouco de raciocínio vc vai chegar ao que deseja, já que o que vc quer dificilmente está ali pronto pra usar. Não acredito que haja receita para este bolo. Links: * http://groups.google.com.br/group/borland.public.delphi.objectpascal/browse_thread/thread/21933c45c64b30f5/ef1ed98fcca48fdf%23ef1ed98fcca48fdf * http://www.efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm Sds, Ricardo. "Yahoo - André J. J" <[EMAIL PROTECTED]> escreveu: Ok, mas qual rotina devo usar?? vc tem alguma ai ou algum link para me basear? dai apenas faço as modificações necessárias que rotina é essa? não tem como o ícone já ser criado no inicio com o .ico que eu quero? e se não puder, este arquivo padrao .ico é padrao em todos os windows? 98, xp etc? esta rotina abaixo eu peguei de um colega aqui da lista.. foi muito util obrigado =) ----- Original Message ----- From: Ricardo César Cardoso To: [email protected] Sent: Tuesday, May 08, 2007 1:16 PM Subject: Re: [delphi-br] Mudar .ico do atalho no desktop?? como? Vc vai ter que lançar mão de uma rotina que converta a imagem selecionada para ICO. E lembre-se que esta imagem deverá ser redimensionada antes, caso esteja fora das dimensões "normais" para um arquivo .ICO. Sds, Ricardo. "Yahoo - André J. J" <[EMAIL PROTECTED]> escreveu: Atividade nos últimos dias a.. 12Novos usuários Visite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação .Bom dia galera, olhem o comando que eu usei para criar o ícone (já está funcionando): procedure TFrmAtuMain.CreateShortcut (FileName : String); var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; Directory : String; WFileName : WideString; MyReg : TRegIniFile; ShortcutName : String; InitialDir : String; begin ShortcutName := 'Gestão'; InitialDir := 'C:\INFOR'; MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(InitialDir)); end; MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); Directory := MyReg.ReadString ('Shell Folders','Desktop',''); WFileName := Directory + '\' + ShortcutName + '.lnk'; MyPFile.Save (PWChar (WFileName), False); MyReg.Free; end; Agora a duvida é: ao criar o ícone, ele cria com um ícone PADRÃO, eu gostaria de escolher um .gif ou .bmp para ser a figura do ícone alguém sabe se posso implementar usando este código ou preciso de outra procedure??? obrigado! [As partes desta mensagem que não continham texto foram removidas] __________________________________________________ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __________________________________________________ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
