инсталяха проги

← →
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_

инсталяха проги Найти похожие ветки