para recriar o atalho:
//--------------------------------- retirado de Ramos da Informática
implementation
uses ShlObj, ActiveX, ComObj;
{$R *.dfm}
procedure CriaShortCut(aNome, aFileName: string; aLocation: integer);
var
IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
PIDL : PItemIDList;
InFolder : array[0..MAX_PATH] of Char;
TargetName : String;
LinkName,s : WideString;
begin
TargetName := aFileName;
IObject := CreateComObject(CLSID_ShellLink);
ISLink := IObject as IShellLink;
IPFile := IObject as IPersistFile;
with ISLink do
begin
SetPath(pChar(TargetName));
SetWorkingDirectory(pChar(ExtractFilePath
(TargetName)));
end;
SHGetSpecialFolderLocation
(0, aLocation, PIDL);
SHGetPathFromIDList(PIDL, InFolder);
s := InFolder;
LinkName := s + '\' + aNome + '.LNK';
if FileExists(LinkName) then
ShowMessage('Atalho já existe!')
else
IPFile.Save(PWChar(LinkName), false);
end;
// Para utilizar:
CriaShortCut('Calculadora', 'c:\windows\system32\calc.exe', CSIDL_DESKTOP);
//---------------------------------
--- Em delphi-br@yahoogrupos.com.br, "snakesjb" <robsontazina...@...> escreveu
>
> Como alterar propriedades de um atalho???
>
> Preciso alterar a propriedade destino de um atalho do menu iniciar, alguem
> sabe como????
>
