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
Wrap
Pascal/Delphi Source File
|
1990-01-18
|
777b
|
35 lines
{$M 4096,0,0}
program ResTest;
{-Test of ISRES unit}
uses
Dos, IsRes;
const
ProgramName = 'RESTEST';
ExeName = 'RESTEST.EXE';
HookTest : Word = 0;
var
UserHook : Pointer;
begin
WriteLn;
WriteLn('In ', ProgramName);
if IsLoaded(ProgramName, UserHook) then begin
{test the user hook}
Inc( Word(UserHook^) );
WriteLn(ProgramName, ' is already loaded');
Halt(1);
end;
Install(ProgramName, @HookTest);
if not IsLoaded(ProgramName, UserHook) then begin
WriteLn('Error installing ', ProgramName, '!');
Halt(1);
end
else
WriteLn(ProgramName, ' installed successfully');
WriteLn('Executing ', ExeName);
Exec(ExeName, ExeName);
WriteLn;
WriteLn('Back in ', ProgramName);
end.