home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
tot5.zip
/
DEMDR7.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
799b
|
43 lines
program DemoDirSeven;
{demdr7 - customizing directory help}
Uses DOS, CRT,
totFAST, totDir, totIO1, totMSG;
Var
DirWin: DirWinObj;
Result: tAction;
{$F+}
procedure NewHelp(ID:word);
{}
var HelpWin: MessageOBJ;
begin
with HelpWin do
begin
Init(1,' Not Much Help ');
AddLine('');
Addline(' Honey, if you need help here, we got big problems! ');
AddLine('');
Show;
Done;
end;
end; {NewHelp}
{$F-}
begin
Screen.Clear(white,'░'); {paint the screen}
with DirWin do
begin
Init;
Action^.SetHelpHook(NewHelp);
Result := Go;
if Result = Finished then
writeln('You chose file: ',GetChosenFile)
else
writeln('You escaped!');
Done;
end;
end.