ярлыки
Adios © (2006-09-06 18:08:00)
как програмно можно присвоить выбранную иконку ярлыку?
RASkov (2006-09-06 21:28:00) [1]
Вот кусок кода (неполный, что убрал к сабжу не относится)...
может что и нароешь
procedure CreateShortcut(const FilePath, ShortcutPath,
WorkDir, Description,
Params: String; const NIco: Integer=0);
var Obj: IUnknown;
begin
.............
with (Obj as IShellLink) do begin
SetPath(PChar(FilePath));
SetArguments(PChar(Params));
SetDescription(PChar(Description));
SetWorkingDirectory(PChar(WorkDir));
SetIconLocation(PChar(MyGetSystemDir+'\SHELL32.dll'),
NIco);
end;
(Obj as
IPersistFile).Save(PWChar(WideString(ShortcutPath)), False);
......
end;
Наверх 
ЧАТ |
Орешник |
|
