paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 20:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix problem if invalid drive is given

Browse Source
This commit is contained in:
pierre 2002-03-13 22:27:36 +00:00
parent dd1bf3c4f2
commit c8ec6d68c8
1 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
installer/install.pas
View File

@ -1158,7 +1158,17 @@ program install;
S := FExpand (Data.BasePath);
if S [Length (S)] = DirSep then
Dec (S [0]);
Space := DiskFree (byte (Upcase(S [1])) - 64) shr 10;
Space := DiskFree (byte (Upcase(S [1])) - 64);
{ -1 means that the drive is invalid }
if Space=-1 then
begin
if messagebox('The drive '+S[1]+': is not valid. Do you ' +
'want to change the installation path?',nil,
mferror+mfyesbutton+mfnobutton) = cmYes then
Continue;
Space:=0;
end;
Space := Space shr 10;
if Space < DSize then
S := 'is not'
@ -1167,8 +1177,8 @@ program install;
if (Space < DSize + 500) then
begin
if S = '' then
S := 'might not be';
if messagebox('There ' + S + ' enough space on the target ' +
S := 'might not be ';
if messagebox('There ' + S + 'enough space on the target ' +
'drive for all the selected components. Do you ' +
'want to change the installation path?',nil,
mferror+mfyesbutton+mfnobutton) = cmYes then
@ -1638,7 +1648,13 @@ begin
createlog:=true
{$ifdef MAYBE_LFN}
else if paramstr(i)='--nolfn' then
locallfnsupport:=false
begin
locallfnsupport:=false;
{$ifdef GO32V2}
{ lfnsupport is a const in win32 RTL }
system.lfnsupport:=locallfnsupport;
{$endif GO32V2}
end
{$endif MAYBE_LFN}
else if paramstr(i)='-h' then
begin
@ -1692,7 +1708,10 @@ begin
end.
{
$Log$
Revision 1.4 2002-02-28 21:30:34 peter
Revision 1.5 2002-03-13 22:27:36 pierre
* fix problem if invalid drive is given
Revision 1.4 2002/02/28 21:30:34 peter
* regenated
Revision 1.3 2002/02/28 17:02:08 pierre