home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / delite / ver1 / hello / hello.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-01  |  1.5 KB  |  68 lines
  1. PROGRAM hello;
  2.  
  3. { Hello World ! }
  4.  
  5. USES Kernel, API, DOS;
  6.  
  7.  
  8. CONST ProjektName  = 'hello';               { so heissen alle Dateien  }
  9.  
  10. VAR   LaunchResult      : integer;
  11.       MyEvent           : EventTyp;                  { eine Botschaft        }
  12.       StillRunning      : boolean;
  13.  
  14.  
  15.  
  16.  
  17. procedure DoQuit;                     { Programm ggf. beenden }
  18. Var YNRsc: YesNoDialog;
  19. begin
  20.   YNRsc.text := 'Programm wirklich beenden ?';
  21.   YNRsc.xorg := 50;
  22.   YNRsc.yorg := 50;
  23.   YNRsc.topic := 'Programm beenden';
  24.   IF DoYesNoDialog(YNRsc) then StillRunning := false;
  25. end;
  26.  
  27. procedure SayHello;
  28. begin
  29.   ErrWindow(30,30,'Hello, world!');
  30. end;
  31.  
  32. {$F+ }
  33. Procedure HandleMsg(MyMessage: EventTyp);
  34. { Hier werden die Botschaften behandelt. }
  35. Begin
  36.   With MyMessage Do
  37.     Case Class Of
  38.       Menu    : begin
  39.                   Case x of
  40.                      0       : DoQuit;
  41.                      101     : SayHello;
  42.                   end;
  43.                 end;
  44.     end; { Case Class }
  45. End;
  46. {$F- }
  47.  
  48.  
  49. Begin
  50.   StillRunning := true;
  51.   LaunchResult := OpenMainApplication(HandleMsg,
  52.                                           APP_NOFONT,
  53.                                           ProjektName);
  54.  
  55.   If LaunchResult = 0 then                { erfolgreich gestartet }
  56.   begin
  57.     while StillRunning Do
  58.       begin
  59.         GetEvent(MyEvent);
  60.         DispatchMessage(MyEvent);
  61.       end;
  62.     CloseMainApplication;
  63.   end
  64.   Else
  65.     Writeln('Programm kann nicht gestartet werden. Fehler: ',LaunchResult);
  66. End.
  67.  
  68. end.