home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wunderki.zip / MAKEPM.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-19  |  524b  |  23 lines
  1. Program MakePM;  {--- 1993 Matthias Withopf / c't ---}
  2. Var
  3.   f : File of Byte;
  4.   b : Byte;
  5. Begin
  6.   If ParamCount <> 1 then
  7.     Begin
  8.       WriteLn('Aufruf: MAKEPM <TEST.EXE>');
  9.       Halt(20);
  10.     End;
  11.   Assign(f,ParamStr(1)); Reset(f);
  12.   Seek(f,$010D); Read(f,b);
  13.   If b in [2,3] then
  14.     Begin
  15.       Seek(f,$010D); b := 3; Write(f,b);
  16.     End
  17.   else
  18.     Begin
  19.       WriteLn('Fehler beim Setzen der Application Flags.');
  20.       WriteLn('Möglicherweise keine OS/2-Anwendung.');
  21.     End;
  22.   Close(f);
  23. End.