home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / for-dos / exe2drv.arj / EXE2DRV.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-21  |  857 b   |  30 lines
  1. var f,o : File;
  2.     Buf : array[0..8192] of byte;
  3.     i   : Word;
  4.     s   : String;
  5. begin
  6.  Writeln('.EXE -> .DRV convertor (C)1992 by FRIENDS software');
  7.  if ParamCount<>1 then
  8.     begin
  9.      Writeln('Usage : Exe2Drv <EXE-file-name>');
  10.      Halt(1);
  11.     end;
  12.  Assign(f,ParamStr(1));Reset(f,1);
  13.  if IOResult>0 then
  14.     begin
  15.      Writeln('Can''t find EXE file');
  16.      Halt(1);
  17.     end;
  18.  Seek(f,$200);BlockRead(f,i,2);Seek(f,$200+i);s:=ParamStr(1);
  19.  i:=Length(s);While (s[i]<>'.') and (i>0) do Dec(i);
  20.  if i>0 then s:=Copy(s,1,i-1);
  21.  s:=s+'.drv';Assign(o,s);Rewrite(o,1);
  22.  While not EOF(f) and (InOutRes=0) do
  23.        begin
  24.         BlockRead(f,Buf,8192,i);
  25.         BlockWrite(o,Buf,i);
  26.        end;
  27.  Close(f);Close(o);
  28.  if IOResult>0 then Writeln('I/O error writing .DRV')
  29.                else Writeln(ParamStr(1),'->',s,' Ok');
  30. end.