home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / i / isres.zip / RESTEST.PAS < prev   
Pascal/Delphi Source File  |  1990-01-18  |  777b  |  35 lines

  1. {$M 4096,0,0}
  2.  
  3. program ResTest;
  4.   {-Test of ISRES unit}
  5. uses
  6.   Dos, IsRes;
  7. const
  8.   ProgramName = 'RESTEST';
  9.   ExeName     = 'RESTEST.EXE';
  10.   HookTest    : Word = 0;
  11. var
  12.   UserHook    : Pointer;
  13.  
  14. begin
  15.   WriteLn;
  16.   WriteLn('In ', ProgramName);
  17.   if IsLoaded(ProgramName, UserHook) then begin
  18.     {test the user hook}
  19.     Inc( Word(UserHook^) );
  20.     WriteLn(ProgramName, ' is already loaded');
  21.     Halt(1);
  22.   end;
  23.   Install(ProgramName, @HookTest);
  24.   if not IsLoaded(ProgramName, UserHook) then begin
  25.     WriteLn('Error installing ', ProgramName, '!');
  26.     Halt(1);
  27.   end
  28.   else
  29.     WriteLn(ProgramName, ' installed successfully');
  30.   WriteLn('Executing ', ExeName);
  31.   Exec(ExeName, ExeName);
  32.   WriteLn;
  33.   WriteLn('Back in ', ProgramName);
  34. end.
  35.