Создаю ярлык для программы этой функцией:
function CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: string): IPersistFile;
var
MyObject: IUnknown;
MySLink: IShellLink;
MyPFile: IPersistFile;
WideFile: WideString;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetPath(PChar(CmdLine));
SetArguments(PChar(Args));
SetWorkingDirectory(PChar(WorkDir));
end;
WideFile := LinkFile;
MyPFile.Save(PWChar(WideFile), False);
Result := MyPFile;
end;
Вот так вызываю:
CreateShortcut('D:\Equinox.exe', '', 'D:\', 'D:\temp.lnk');
Проблема в том, что ярлык создаётся, но патч автоматически берётся в двойные кавычки (т.е. в поле патч что-то типо этого: "D:\program.exe").
Как сделать так, чтобы этих двойных кавычек, которые добавляются автоматически, не было?