Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Инсталятор

404
05 марта 2004 года
GooD
108 / / 04.12.2003
Привет всем!

Вот сижу пишу свой инмталятор и столкнулся с двумя маленькими проблемами:
1.Как можно узнать сколько свободного места есть на диске?
2.Как можно создавать ярлыки?(тот код тоторуй у меня почемуто не работает)

Спасибо за внемание!
423
06 марта 2004 года
Quasi
98 / / 20.01.2000
Цитата:
Originally posted by GooD
Привет всем!

Вот сижу пишу свой инмталятор и столкнулся с двумя маленькими проблемами:
1.Как можно узнать сколько свободного места есть на диске?
2.Как можно создавать ярлыки?(тот код тоторуй у меня почемуто не работает)

Спасибо за внемание!


// место на диске
var
dcbDrive:TDriveComboBox;

case dcbDrive.ItemIndex of
0: idrive:=1
else iDrive:=dcbDrive.ItemIndex+2;
end;
liDisksize:=diskfree(idrive);

// создание ярлыка, код из кулибы
procedure TForm1.CreateLink(const PathObj, PathLink, Desc, Param: string);
var
IObject: IUnknown;
SLink: IShellLink;
PFile: IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

мой тебе совет забей на свой инсталятор, возми либо IS, либо WinRAR (я использую последний, в нем достаточно настроек в SFX, что бы проинсталлить свою прогу как надо, для удаления своей проги моно написать небольшое дополнение, которое запускается сразу после распаковки и прописывает в реестр информацию по удалению)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог