home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / README / TEST.PAS < prev   
Pascal/Delphi Source File  |  1998-05-14  |  1KB  |  56 lines
  1. unit Test;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, StdCtrls, Buttons;
  8.  
  9. type
  10.   TTestForm = class(TForm)
  11.     ClickMeButton: TButton;
  12.     Label1: TLabel;
  13.     Bevel1: TBevel;
  14.     BitBtn1: TBitBtn;
  15.     procedure ClickMeButtonClick(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   TestForm: TTestForm;
  24.  
  25. implementation
  26.  
  27. uses FMXUtils;
  28.  
  29. $R *.DFM}
  30.  
  31. (* 16-bit version; still works but WinExec is obsolete
  32. procedure TTestForm.ClickMeButtonClick(Sender: TObject);
  33. var
  34.   K: Integer;  { Result of calling WinExec }
  35. begin
  36.   K := WinExec('Readme.Exe Readme.Txt', SW_SHOWNORMAL);
  37.   if K < 32 then
  38.     ShowMessage('Error running README.EXE');
  39. end;
  40. *)
  41.  
  42. { 32-bit version; calls ExecuteFile in FMXUtils unit, which
  43.   is located in Delphi's Demos\Doc\Filmanex folder }
  44. procedure TTestForm.ClickMeButtonClick(Sender: TObject);
  45. var
  46.   H: THandle;
  47. begin
  48.   H := ExecuteFile('Readme.exe', 'Readme.txt', '.',
  49.          SW_SHOWNORMAL);
  50.   if Integer(H) < 32 then
  51.     ShowMessage('Error running Readme.exe');
  52. end;
  53.  
  54.  
  55. end.
  56.