home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / dos / htest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-13  |  1.5 KB  |  34 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,M 2048,0,0}
  2. (*===================================================================*)
  3. (*                             HTEST.PAS                             *)
  4. (*             Copyright (C) 1993 te-wi Verlag, München              *)
  5. (*-------------------------------------------------------------------*)
  6. (*               Demonstration für die UNIT Huckepack                *)
  7. (*===================================================================*)
  8.  
  9.  
  10. PROGRAM Huckepacktest;
  11.  
  12. USES Huckepack;
  13.           (* vergrößert das Programm beim ersten Aufruf um 130 Bytes *)
  14. VAR
  15.   test: ARRAY[1..2] OF BYTE;
  16.  
  17. BEGIN
  18.   ReadVarFromExeFile(-2, test[1]);           (* Kennung 1. Buchstabe *)
  19.   ReadVarFromExeFile(-1, test[2]);           (* Kennung 2. Buchstabe *)
  20.  (* Anhand der Kennung kann festgestellt werden, ob es sich wirklich *)
  21.  (* um einen Initialisierungsbereich oder um ein Overlay (o.dgl.)    *)
  22.  (* handelt                                                          *)
  23.  
  24.   IF (Chr(test[1]) = 'J') AND (Chr(test[2]) = 'B') THEN
  25.     Write('Kennung JB wurde gefunden')
  26.   ELSE
  27.     Write('Variablenbereichskennung nicht gefunden!');
  28.  
  29.   Halt(0); (* Alle Programme, in die die UNIT Huckepack eingebunden  *)
  30.            (* ist, müssen mit HALT() beendet werden, da sonst Datum  *)
  31.            (* und Attribut nicht zurückgesetzt werden                *)
  32. END.
  33.  
  34. (*===================================================================*)