fyxszk.pas

来自「哦哦趴架大肆的的哦卡可是的；啊啊迪斯科派哦；卡 罚款」· PAS 代码 · 共 40 行

unit Fyxszk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, ComCtrls, StdCtrls, ExtCtrls, Buttons, ToolWin, TeEngine,
  Series, TeeProcs, Chart, DbChart, DB, ADODB, Grids, DBGrids, jpeg,shellapi;

type
  TF_yxszk = class(TF_base)
    StaticText1: TStaticText;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Label5: TLabel;
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_yxszk: TF_yxszk;

implementation
  uses Fdm;
{$R *.dfm}

procedure TF_yxszk.Label4Click(Sender: TObject);
begin
  inherited;
  ShellEXecute(handle,'open','http://www.mingrisoft.com',nil,nil,Sw_normal);
end;

end.