Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Как создать что-нибудь.lnk ? 


CrazyAngel   (2002-03-28 20:02) [0]

Люди помогите plssss , как создать что-нибудь.lnk т.е. ярлык на мою прогу ?



lipskiy   (2002-03-28 20:45) [1]

procedure TForm1.CreateShortcut(const FilePath, ShortcutPath, WorkDir, Description, Params:string);
var
obj: IUnknown;
isl: IShellLink;
ipf: IPersistFile;
begin
obj := CreateComObject(CLSID_ShellLink);
isl := obj as IShellLink;
ipf := obj as IPersistFile;
with isl do
begin
SetPath(PChar(FilePath));
SetArguments(PChar(Params));
SetDescription(PChar(Description));
SetWorkingDirectory(PChar(WorkDir));
end;
ipf.Save(PWChar(WideString(ShortcutPath)), False);
end;



CrazyAngel   (2002-03-28 20:49) [2]

>lipskiy
Спасибо , попробую ...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
6-32928           Hecker                2002-01-29 13:50  2002.04.11  
Hello All !!! кто сталкивался со следующей проблемой?


1-32744           Денис_                2002-03-30 12:52  2002.04.11  
Модификация ListBox


1-32808           Yuraz                 2002-03-27 19:39  2002.04.11  
Оптимизация кода (цикл в цикле), код ниже:


4-33010           Yaro                  2002-02-10 01:00  2002.04.11  
Убить Процесс


1-32789           NIC2                  2002-03-31 11:55  2002.04.11  
WebBrowser