home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi1 / winfo151.exe / README.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-06  |  1.0 KB  |  52 lines
  1. unit Readme;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Menus;
  8.  
  9. type
  10.   TfrmReadMe = class(TForm)
  11.     Memo1: TMemo;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Exit1: TMenuItem;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure Exit1Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   frmReadMe: TfrmReadMe;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TfrmReadMe.FormCreate(Sender: TObject);
  31. var s : string;
  32. begin
  33. s := UpperCase(ExtractFilePath(Application.exename) + 'readme.txt');
  34. self.caption := 'File: ' + s;
  35. try
  36. memo1.Lines.LoadFromFile(s);
  37. except
  38.   On EFOpenError do begin
  39.     ShowMessage('File ' + s + ' is not found in the current directory.');
  40.     memo1.lines.clear;
  41.     memo1.lines.add('File ' + s + ' is not found in the current directory.');
  42.   end;
  43. end;
  44. end;
  45.  
  46. procedure TfrmReadMe.Exit1Click(Sender: TObject);
  47. begin
  48. self.close;
  49. end;
  50.  
  51. end.
  52.