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]
