Ola, soh uma dica: Se vc quer criar um icone para sua propria aplicacao vc pode definir lah nas opcoes do projeto em "Application" item "Icon".
Assim qdo for criado o seu icone sera com o que estiver definido lah ao invez do padrao do delphi. Nao sei se era esta a tua intencao mesmo... Falow!!! Teh mais... Marcelo Hörlle [EMAIL PROTECTED] ----- Original Message ----- From: Yahoo - André J. J To: [email protected] Sent: Tuesday, May 08, 2007 4:18 PM Subject: Re: [delphi-br] Mudar .ico do atalho no desktop?? como? 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] [As partes desta mensagem que não continham texto foram removidas]
