Текущий архив: 2005.08.14;
Скачать: CL | DM;
Вниз
ярлыки к *.doc файлам Найти похожие ветки
← →
пользовател ь (2005-06-11 17:15) [0]Помогите плиз! Задача следующая:
Через FindFirst нашел на дисках нужные файлы и вывел полные пути в Listbox...
Теперь нужно создать в в выбранной папке (допустим с:\temp)ярлыки к этим файлам. КАК?
← →
PSA (2005-06-11 21:13) [1]
var MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName2 : String;
Directory : String;
WFileName : WideString;
begin
try
MyObject:= CreateComObject(CLSID_ShellLink);
MySLink:= MyObject as IShellLink;
MyPFile:= MyObject as IPersistFile;
FileName2:= Path+"\*.doc";
with MySLink do begin
SetArguments("");
SetPath(PChar(FileName2));
SetWorkingDirectory(PChar(Path));
end;
Directory:= Path;
WFileName:= Directory+"\DocFileName.lnk";
MyPFile.Save(PWChar(WFileName),False);
except
Application.MessageBox("Не могу создать ярлык !!!","Ошибка", MB_ICONERROR);
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2005.08.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.042 c
