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]
