aboutp.pas

来自「自已用DELPHI编写的MODBUS测试软件及源代码」· PAS 代码 · 共 36 行

unit aboutp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Taboutform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aboutform: Taboutform;

implementation
uses SHELLAPI;
{$R *.DFM}

procedure Taboutform.Label4Click(Sender: TObject);
var st:array[0..255] of char;
begin
  ShellExecute(Handle,'open',StrPCopy(St,Label4.Caption),nil,nil,SW_SHOW);
end;

end.