home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / Filepeek / FILEPEEK.DPR next >
Encoding:
Text File  |  1995-03-10  |  1.5 KB  |  43 lines
  1. program FilePeek;
  2.  
  3. (***********************************************************************
  4.  This is a simple little file viewer I whipped together in an hour or
  5.  two after getting my Delphi. It is able to display ICO, BMP, WMF files
  6.  as well as playing WAV and AVI files via the MediaPlayer control.
  7.  
  8.  I am posting this program to help encourage other Delphi developers
  9.  to start sharing their code.
  10.  
  11.  You will notice that there aren't too many lines of code (about 20 it
  12.  looks like). This attests to the amazing power of Delphi applications.
  13.  I would hate to have tackled this before Delphi came out. I have
  14.  written a number of pretty complex Windows Apps using BP7 and the
  15.  amount of drudgery that Delphi aleviates is immense.
  16.  
  17.  If you like this program you can feel free to use it, however, if you
  18.  modify it, I would like you to send me whatever you did to it. If you
  19.  send me your CIS ID, I will send you copies of my custom controls that
  20.  I develop in the future. Please feel free to send me anything you are
  21.  working on as well. Perhaps we can spark ideas!
  22.  
  23.  Robert Vivrette, Owner
  24.  Prime Time Programming
  25.  PO Box 5018
  26.  Walnut Creek, CA  94596-1018
  27.  
  28.  Fax: (510) 939-3775
  29.  CIS: 76416,1373
  30. ***********************************************************************)
  31.  
  32. uses
  33.   Forms,
  34.   PeekUnit in 'PEEKUNIT.PAS' {Form1};
  35.  
  36. {$R *.RES}
  37.  
  38. begin
  39.   Application.Title := 'File Inspector';
  40.   Application.CreateForm(TForm1, Form1);
  41.   Application.Run;
  42. end.
  43.