Pois é... ela resolve o problema do nosso amigo André. Pena que ele só explicou
o que queria depois de eu me descabelar todo procurando uma solução pra um
problema que não estava bem explicado.
Sds,
Ricardo.
Marcelo - Kappesberg <[EMAIL PROTECTED]> escreveu:
mandei esta mensagem antes mas pra min nao apareceu na lista.
de qualquer forma estou enviando novamente...
----- Original Message -----
From: Marcelo - Kappesberg
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, May 09, 2007 11:34 AM
Subject: Re: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como?
Veja o metodo SetIconLocation do IShellLink
with MySLink do
begin
SetArguments('');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(InitialDir));
SetIconLocation(PChar('C:\INFOR\seuicone.ico'), 0);
end;
Nao testei talvez precise de ajustes...
Marcelo Hörlle
[EMAIL PROTECTED]
----- Original Message -----
From: Yahoo - André J. J
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 08, 2007 2:01 PM
Subject: [delphi-br] AJUDA! Mudar .ico do atalho no desktop?? como?
ninguém sabe alguma dica? meu projeto está parado, estou procurando no google
e nao acho nada :(
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]
[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]
