Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

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

 
syte_ser78 ©   (2004-07-26 09:39) [0]

сабж


 
clickmaker ©   (2004-07-26 10:32) [1]

procedure CreateFileLink(const FileName, DisplayName: string; Folder: Integer);
var
 ShellLink: IShellLink;
 PersistFile: IPersistFile;
 ItemIDList: PItemIDList;
 FileDestPath: array[0..MAX_PATH] of Char;
 FileNameW: array[0..MAX_PATH] of WideChar;
begin
 CoInitialize(nil);
 try
   OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_SERVER,
     IID_IShellLinkA, ShellLink));
   try
     OleCheck(ShellLink.QueryInterface(IID_IPersistFile, PersistFile));
     try
       OleCheck(SHGetSpecialFolderLocation(0, Folder, ItemIDList));
       SHGetPathFromIDList(ItemIDList, FileDestPath);
       StrCat(FileDestPath, PChar("\" + DisplayName + LinkExt));
       ShellLink.SetPath(PChar(FileName));
       ShellLink.SetIconLocation(PChar(FileName), 0);
       MultiByteToWideChar(CP_ACP, 0, FileDestPath, -1, FileNameW, MAX_PATH);
       OleCheck(PersistFile.Save(FileNameW, True));
     finally
       PersistFile := nil;
     end;
   finally
     ShellLink := nil;
   end;
 finally
   CoUninitialize;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.051 c
3-1090225525
AlexanderSK
2004-07-19 12:25
2004.08.15
Как работает IBQuery?


4-1088416870
vertal
2004-06-28 14:01
2004.08.15
Передача управления другой программе без возврата


14-1091001858
syte_ser78
2004-07-28 12:04
2004.08.15
Хинт в комобобоксе


1-1091261600
brat2
2004-07-31 12:13
2004.08.15
компоненты лезут без очереди!!!


9-1079704176
wiz
2004-03-19 16:49
2004.08.15
2D аркада на 3D движке (oGL). demo N1