home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Db / Cachedup / about.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  717 b   |  44 lines
  1. unit About;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls;
  7.  
  8. type
  9.   TAboutDialog = class(TForm)
  10.     Panel1: TPanel;
  11.     ProgramIcon: TImage;
  12.     ProductName: TLabel;
  13.     Version: TLabel;
  14.     OKButton: TButton;
  15.     AboutMemo: TMemo;
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   AboutDialog: TAboutDialog;
  24.  
  25. procedure ShowAboutDialog;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure ShowAboutDialog;
  32. begin
  33.   with TAboutDialog.Create(Application) do
  34.   try
  35.     AboutMemo.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'ABOUT.TXT');
  36.     ShowModal;
  37.   finally
  38.     Free;
  39.   end;
  40. end;
  41.  
  42. end.
  43.  
  44.