Board.KolibriOS.org

Code: Select all

Unit Unit1;
(* -------------------------------------------------------- *)
Interface
(* -------------------------------------------------------- *)
Uses KolibriOS;
(* -------------------------------------------------------- *)
Var
  hConsole: Pointer;
  ConsoleInit:       Procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: Dword; Caption: PChar); StdCall;
  ConsoleExit:       Procedure(bCloseWindow: Cardinal); StdCall;
  printf:            Function(Const Format: PChar): Integer; CDecl VarArgs;
(* -------------------------------------------------------- *)
Procedure Main;
(* -------------------------------------------------------- *)
Implementation
(* -------------------------------------------------------- *)
Procedure Main;
Const FileName = '/RD/1/........';
Var
    FileAttributes: TFileAttributes;
    LastAttributes: TFileAttributes;
Begin
  hConsole          := LoadLibrary('/sys/lib/console.obj');
  ConsoleInit       := GetProcAddress(hConsole, 'con_init');
  ConsoleExit       := GetProcAddress(hConsole, 'con_exit');
  printf            := GetProcAddress(hConsole, 'con_printf');

  ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Test');

  If GetFileAttributes(FileName, LastAttributes) <> 0 {If File Is Not Exist} Then Begin
    If CreateFile(FileName) <> 0 Then
      printf('RDFreeSize can not be determined.'#10)
    Else Begin
      ResizeFile(FileName, $FFFFFFFF, 0);
      GetFileAttributes(FileName, FileAttributes);
      printf('RDFreeSize = %d'#10, FileAttributes.SizeLo);
      DeleteFile(FileName);
    End;
  End Else {If File Is Already Exist} Begin
    ResizeFile(FileName, $FFFFFFFF, 0);
    GetFileAttributes(FileName, FileAttributes);
    printf('RDFreeSize = %d'#10, FileAttributes.SizeLo);
    ResizeFile(FileName, LastAttributes.SizeLo, 0);
  End;

  ConsoleExit(0);
  ThreadTerminate;
End;
(* -------------------------------------------------------- *)
End.