Инсталятор
Вот сижу пишу свой инмталятор и столкнулся с двумя маленькими проблемами:
1.Как можно узнать сколько свободного места есть на диске?
2.Как можно создавать ярлыки?(тот код тоторуй у меня почемуто не работает)
Спасибо за внемание!
Привет всем!
Вот сижу пишу свой инмталятор и столкнулся с двумя маленькими проблемами:
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, что бы проинсталлить свою прогу как надо, для удаления своей проги моно написать небольшое дополнение, которое запускается сразу после распаковки и прописывает в реестр информацию по удалению)