program uhrtsr; {$m 2048,1000,1000} {$i-} {------------------------------------------------- demotsr.pas ----------- Stellt dar, auf welche einfache Weise sich TSR- Programme mit der Unit TPPTSR entwickeln lassen. von Martin Althaus 1990 ------------------------------------------------- } uses crt,dos,tpptsr; const identifikation:TSR_KennungsString='uhr_tsr'; var h,m,s,hs :word; {$f+} procedure popup; {$f-} {------------------------------------------------- Das ist die Prozedur, die zum AuslÖsen des Hot- key aufgerufen wird. ------------------------------------------------- } begin gettime(h,m,s,hs); gotoxy(72,1); writeln(h:2,':',m:2,':',s:2); repeat until keypressed; end; {------------------------------------------------- Hier folgt das Hauptprogramm, in dem die TSR- Prozedur resident installiert wird. ------------------------------------------------- } begin writeln; writeln('Zeitanzeige-Program von RenÉ Scholz '); writeln; if TSR_SchonInstalliert(identifikation) then {---------------------------------------------- TSR-Programm ist bereits im Speicher ---------------------------------------------- } if TSR_Deinstallieren then {--------------------------------------------- Es hat sich problemlos entfernen lassen --------------------------------------------- } begin writeln; writeln('Das TSR-Programm wurde aus dem'); writeln('Speicher entfernt.'); writeln; end else {--------------------------------------------- Entfernen nicht mÖglich, passiv geschaltet --------------------------------------------- } if TSR_Schlafend then begin writeln; writeln('Ein Entfernen des TSR-Programms war'); writeln('nicht mÖglich, das Programm wurde'); writeln('jedoch abgeschaltet.'); writeln; end else begin writeln; writeln('Das Programm befindet sich bereits'); writeln('Im Speicher, wo es abgeschaltet war.'); writeln('Es wurde wieder eingeschaltet.'); writeln; end else begin writeln; writeln('Das TSR-Programm ist nun im Speicher'); writeln('installiert. Aktiviert wird es mit der'); writeln('Tastenkombination <Alt> <Shift> T '); writeln; TSR_Installieren(TSR_Taste_T+ TSR_Steuertaste_ShiftLinks+ TSR_Steuertaste_Alt, popup); end; end.