home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / mo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.5 KB  |  82 lines
  1. unit MO;
  2.  
  3. interface
  4. uses Def;
  5. procedure GetMode;
  6. procedure PutMode(ShowMode,PrinterMode: integer);
  7.  
  8. implementation
  9.  
  10. procedure GetMode;
  11. var  Continue:        boolean;
  12.      I,
  13.      Err:             integer;
  14. begin
  15. ShowMode := 1;
  16. PrinterMode := 1;
  17. I := 0;
  18. ActivePrinter := 1;
  19. ProgramUse := 1;
  20. TempFileLine := concat(DataDrive,'mailmode');
  21. assign(IntFile,TempFileLine);
  22. reset(IntFile);
  23. Continue := true;
  24.  
  25. {$I-}
  26. if Continue then
  27.    read(IntFile,ShowMode);
  28. {$I+}  Err := ioresult;
  29. if Err <> 0 then Continue := false;
  30.  
  31. {$I-}
  32. if Continue then
  33.    read(IntFile,PrinterMode);
  34. {$I+}  Err := ioresult;
  35. if Err <> 0 then Continue := false;
  36.  
  37. {$I-}
  38. if Continue then
  39.    read(IntFile,I);
  40. {$I+}  Err := ioresult;
  41. if Err <> 0 then Continue := false;
  42.  
  43. {$I-}
  44. ActivePrinter := 1;
  45. if Continue then
  46.    read(IntFile,ActivePrinter);
  47. {$I+}  Err := ioresult;
  48. if Err <> 0 then Continue := false;
  49.  
  50. {$I-}
  51. ProgramUse := 1;
  52. if Continue then
  53.    read(IntFile,ProgramUse);
  54. {$I+}  Err := ioresult;
  55. if Err <> 0 then Continue := false;
  56.  
  57. {$I-}
  58. ActiveForm := 0;
  59. if Continue then
  60.    read(IntFile,ActiveForm);
  61. {$I+}  Err := ioresult;
  62. if Err <> 0 then Continue := false;
  63.  
  64. close(IntFile);
  65. end;
  66.  
  67. procedure PutMode;
  68. begin
  69. TempFileLine := concat(DataDrive,'mailmode');
  70. assign(IntFile,TempFileLine);
  71. rewrite(IntFile);
  72. write(IntFile, ShowMode);
  73. write(IntFile, PrinterMode);
  74. write(IntFile, I);
  75. write(IntFile, ActivePrinter);
  76. write(IntFile, ProgramUse);
  77. write(IntFile, ActiveForm);
  78. close(IntFile);
  79. end;
  80.  
  81. end.
  82.