descobri muito obrigado.. na verdade eu quero JUSTAMENTE isso que voce disse, mas via comando delhpi
nossa amigo marcelo me deu a luz... ja funcionou! obrigado o Ricardo césar nao intendeu muito bem minha duvida, eu nao queria converter formatos de imagens.. apenas pegar um .ico pronto e jogar no atalho no momento que ele é criado.. obrigado a todos ----- Original Message ----- From: Rodrigo Kopke Lopes To: [email protected] Sent: Wednesday, May 09, 2007 9:25 AM Subject: Re: [delphi-br] Mudar .ico do atalho no desktop?? como? Não estou entendendo a questão amigo... eu iria direto em Propriedades/Alterar Ícone... será que entendi errado? []´s "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] [As partes desta mensagem que não continham texto foram removidas]
