home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / windows / windum / dump.pas next >
Pascal/Delphi Source File  |  1994-05-27  |  413b  |  26 lines
  1. uses
  2.   WinTypes,
  3.   WinProcs,
  4.   OWindows,
  5.   WinDump;
  6.  
  7. type
  8.   THelloApp = object(TApplication)
  9.     procedure InitMainWindow; virtual;
  10.   end;
  11.  
  12. procedure THelloApp.InitMainWindow;
  13. begin
  14.   writeln('InitMainWindow');
  15.   MainWindow := New(PWindow, Init(nil, 'Hello, Turbo Pascal World'));
  16. end;
  17.  
  18. var
  19.   HelloApp: THelloApp;
  20.  
  21. begin
  22.   HelloApp.Init('HelloApp');
  23.   HelloApp.Run;
  24.   HelloApp.Done;
  25. end.
  26.