Текущий архив: 2003.01.23;
Скачать: CL | DM;
Вниз
инсталяха проги Найти похожие ветки
← →
SaperXL (2003-01-12 19:13) [0]Привет мастерам.
У меня есть прога Я хочу написать для неё инсталл. Вопросы:
Как положить ярлык на рабочий стол?
Как сделать чтобы она появилась в "Start/Programs/..."?
Если кто умеет пользоваться Install Shield"ом, то научите меня, пожалуйста (и скажите где скачать).
← →
Pat © (2003-01-12 19:25) [1]Какой именно IS?
Например, для IS Express For D5:
Specify Folders and Icons, добавляешь новый ярлык в General, на вкладке Advanced задаешь где ему лежать...
← →
Rouse_ © (2003-01-12 19:27) [2]Не понял, ты хочешь при помощи Install Shield"а паписать инсталяху или свою программу сделать?
На рабочий стол кинуть ярлык можно так:
function TForm1.CreateLinkDesktop(Const FileName : String) : String;
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do begin
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer") ;
//создание ярлыка на рабочем столе
Directory := MyReg.ReadString("Shell Folders","Desktop","");
WFileName := Directory+"\Имя ярлыка.lnk";
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
Чтобы создать в Start/Programs/..."
нужно изменить строчку
Directory := MyReg.ReadString("Shell Folders","Programs","");
Желаю успехов
← →
Rouse_ © (2003-01-12 19:30) [3]Да чуть не забыл:
uses ...,ShlObj, ComObj, Registry, ActiveX;
Желаю успехов
← →
SaperXL (2003-01-12 19:31) [4]Я хочу либо, научиться пользоваться Install Shield"ом и на нём сделать инсталяху. либо написать просто свою инсталяху на Delphi.
Как свою сделать Я уже понял - спасибо Rouse_
Страницы: 1 вся ветка
Текущий архив: 2003.01.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
