Igrikxxx
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
function NextButtonClick(CurPageID: Integer): Boolean;
var
Path: String;
FreeMB, TotalMB: Cardinal;
begin
Result:= True;
if CurPageID = wpSelectDir then
begin
Path:= ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB < NeedSize then
begin
MsgBox('Для установки приложения необходимо '+ IntTostr(NeedSize)+ ' MB,'#13+ 'а на выбранном Вами диске доступно только '+ IntToStr(FreeMB)+' MB', mbCriticalError, MB_OK)
Result := False;
end;
end;
end; |
Всего записей: 18 | Зарегистр. 21-01-2009 | Отправлено: 11:51 23-04-2009 | Исправлено: Igrikxxx, 12:08 23-04-2009 |
|
