| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

инсталяха проги [D6, Win2k]

SaperXL ©   (2003-01-12 19:13:00) 

Привет мастерам.
У меня есть прога Я хочу написать для неё инсталл. Вопросы:
Как положить ярлык на рабочий стол?
Как сделать чтобы она появилась в "Start/Programs/..."?
Если кто умеет пользоваться Install Shield"ом, то научите меня, пожалуйста (и скажите где скачать).

---

SaperXL   (2003-01-12 19:31:00) [1]

Я хочу либо, научиться пользоваться Install Shield"ом и на нём сделать инсталяху. либо написать просто свою инсталяху на Delphi.
Как свою сделать Я уже понял - спасибо Rouse_

---

Rouse_   (2003-01-12 19:30:00) [2]

Да чуть не забыл:

uses ...,ShlObj, ComObj, Registry, ActiveX;

Желаю успехов

---

Rouse_   (2003-01-12 19:27:00) [3]

Не понял, ты хочешь при помощи 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","");

Желаю успехов

---

Pat   (2003-01-12 19:25:00) [4]

Какой именно IS?
Например, для IS Express For D5:
Specify Folders and Icons, добавляешь новый ярлык в General, на вкладке Advanced задаешь где ему лежать...

---

Наверх