home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / dos / exelen.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-13  |  1.5 KB  |  45 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,M 16384,0,0}
  2. (*===================================================================*)
  3. (*                            EXELEN.PAS                             *)
  4. (*            Copyright (C) 1993 te-wi Verlag, München               *)
  5. (* Demoprogramm für die Funktionen GetFileLenFromHeader: LongInt und *)
  6. (*          GetRealFileLength: LongInt der UNIT HuckePack            *)
  7. (*===================================================================*)
  8.  
  9. PROGRAM EXE_Laengen_Test;
  10.  
  11. USES
  12.   HuckePack, 
  13.   Dos;
  14.  
  15. VAR
  16.   prg    : PathStr;
  17.   v1, v2 : LONGINT;
  18.   count  : BYTE;
  19.   ExePath: DirStr;
  20.   ExeNam : NameStr;
  21.   ExeExt : ExtStr;
  22.  
  23. BEGIN
  24.   IF ParamCount < 1 THEN
  25.     Write('EXELEN v 1.0, (C) 1990 J. Braun'
  26.     + Chr(13) + Chr(10) + 
  27.     'Aufruf: EXELEN EXENAME[.EXE]')
  28.   ELSE
  29.   BEGIN         (* weitere Fehler werden in 'Huckepack' abgefangen!  *)
  30.     prg := ParamStr(1);
  31.     FOR count := 1 TO Length(prg) DO
  32.       prg[count] := UpCase(prg[count]);
  33.     FSplit(prg, ExePath, ExeNam, ExeExt);
  34.     IF ExeExt = '' THEN prg := prg + '.EXE';
  35.     ExeName := prg;
  36.     v1      := GetRealFileLength;
  37.     v2      := GetFileLenFromHeader;
  38.     WriteLn(Chr(13) + Chr(10) + 
  39.             'Programmdatei                : ', ExeNam: 10, '.EXE');
  40.     WriteLn('Effektive Länge der Datei    : ', v1 :8, ' Bytes');
  41.     WriteLn('Im EXE-Header vermerkte Länge: ', v2 :8, ' Bytes');
  42.   END;
  43. END.
  44. (*===================================================================*)
  45.