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

* avoid diskfree problem and get mouse visible

Browse Source
This commit is contained in:
pierre 2000-02-02 17:19:10 +00:00
parent 89fa5503fc
commit 540e840cdf
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
install/fpinst/install.pas
View File

@ -729,7 +729,7 @@ program install;
S := FExpand (Data.BasePath); S := FExpand (Data.BasePath);
if S [Length (S)] = DirSep then if S [Length (S)] = DirSep then
Dec (S [0]); Dec (S [0]);
Space := DiskFree (byte (S [1]) - 64) shr 10; Space := DiskFree (byte (Upper(S [1])) - 64) shr 10;
if Space < DSize then if Space < DSize then
S := 'is not' S := 'is not'
else else
@ -1074,6 +1074,11 @@ end;
{$ENDIF} {$ENDIF}
begin begin
{$ifdef FPC}
{$ifdef win32}
Dos.Exec(GetEnv('COMSPEC'),'/C echo This dummy call gets the mouse to become visible');
{$endif win32}
{$endif FPC}
(* TH - no error boxes if checking an inaccessible disk etc. *) (* TH - no error boxes if checking an inaccessible disk etc. *)
{$IFDEF OS2} {$IFDEF OS2}
{$IFDEF FPC} {$IFDEF FPC}
@ -1107,7 +1112,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.14 2000-02-02 15:21:31 peter Revision 1.15 2000-02-02 17:19:10 pierre
* avoid diskfree problem and get mouse visible
Revision 1.14 2000/02/02 15:21:31 peter
* show errorcode in message when error in unzipping * show errorcode in message when error in unzipping
Revision 1.13 2000/01/26 21:49:33 peter Revision 1.13 2000/01/26 21:49:33 peter
@ -1196,4 +1204,4 @@ end.
Revision 1.2 1998/04/07 22:47:57 florian Revision 1.2 1998/04/07 22:47:57 florian
+ version/release/patch numbers as string added + version/release/patch numbers as string added
} }