Как создать ярлык?

← →
Xeon © (2003-05-09 07:45) [0]

Подскажите пожалуйста как создать ярлык для какого-то файла в главном меня или на рабочем столе?

← →
german goering (2003-05-09 08:29) [1]

procedure TForm1.Button267Click(Sender: TObject);
var iSL: IShellLink; {uses ShlObj}
LinkFileName: WideString;
LinkFileObj: string;
begin
LinkFileObj := "F:\";
LinkFileName := "C:\Documents and Settings\All Users\Рабочий стол\as.lnk";

OleCheck(CoCreateInstance(CLSID_ShellLink,nil,CLSCTX_INPROC_SERVER,IShellLink,iSL));

OleCheck(iSL.SetPath(PChar(LinkFileObj)));
OleCheck(iSL.SetDescription("This is a program created link obj 0"));
(iSL as IPersistFile).Save(PWideChar(LinkFileName),True); {IPersistFile - uses ActiveX}
end;

Должно помочь

← →
german goering (2003-05-09 08:37) [2]

Поправка

OleCheck((iSL as IPersistFile).Save(PWideChar(LinkFileName),True));

Можно без OleCheck"ов, в принципе, однако:
try
OleCheck(iSL.SetPath(PChar(nil))); //зано ошибочное значение
except
//Здесь обработали ошибку
end;

ShellApi.SHGetSpecialFolderPath()+"/"+FileName+".lnk" => LinkFileName

Как создать ярлык? Найти похожие ветки