Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c