home *** CD-ROM | disk | FTP | other *** search
/ Guide To Cracking 2002 / Guide_to_Cracking_2002.iso / Programming / yPP-B-SRC.ZIP / Unit5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-08-31  |  1.6 KB  |  79 lines
  1. unit Unit5;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls,shellapi, Buttons;
  8.  
  9. type
  10.   TAboutform = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Bevel1: TBevel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     Label5: TLabel;
  17.     Label6: TLabel;
  18.     Label7: TLabel;
  19.     Label8: TLabel;
  20.     Label9: TLabel;
  21.     Label10: TLabel;
  22.     Label11: TLabel;
  23.     Bevel2: TBevel;
  24.     Label12: TLabel;
  25.     Bevel3: TBevel;
  26.     Label13: TLabel;
  27.     Label14: TLabel;
  28.     Label15: TLabel;
  29.     Bevel4: TBevel;
  30.     SpeedButton1: TSpeedButton;
  31.     procedure Label9Click(Sender: TObject);
  32.     procedure Label11Click(Sender: TObject);
  33.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  34.     procedure FormShow(Sender: TObject);
  35.     procedure SpeedButton1Click(Sender: TObject);
  36.   private
  37.     { Private-Deklarationen }
  38.   public
  39.     { Public-Deklarationen }
  40.   end;
  41.  
  42. var
  43.   Aboutform: TAboutform;
  44.  
  45. implementation
  46.  
  47. uses Unit1;
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TAboutform.Label9Click(Sender: TObject);
  52. begin
  53. shellexecute(handle,'open',pchar('mailto:yoda_f2f@gmx.net'),
  54.              nil,nil,sw_normal);
  55. end;
  56.  
  57. procedure TAboutform.Label11Click(Sender: TObject);
  58. begin
  59. shellexecute(handle,'open',pchar('http://come.to/f2f'),
  60.              nil,nil,sw_normal);
  61. end;
  62.  
  63. procedure TAboutform.FormClose(Sender: TObject; var Action: TCloseAction);
  64. begin
  65. form1.enabled:=true;
  66. end;
  67.  
  68. procedure TAboutform.FormShow(Sender: TObject);
  69. begin
  70. form1.enabled:=false;
  71. end;
  72.  
  73. procedure TAboutform.SpeedButton1Click(Sender: TObject);
  74. begin
  75. close;
  76. end;
  77.  
  78. end.
  79.