main.pas

这是我找到的一份老外编写的程序

unit Main;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
	TfrmMain = class(TForm)
		btnMonitor: TButton;
		btnCall: TButton;
    Label1: TLabel;
		procedure btnMonitorClick(Sender: TObject);
		procedure btnCallClick(Sender: TObject);
	private
		{ Private declarations }
	public
		{ Public declarations }
		Monitor: Boolean;
		Call: Boolean;
	end;

var
	frmMain: TfrmMain;

implementation

{$R *.DFM}

uses MonForm, CallForm;

procedure TfrmMain.btnMonitorClick(Sender: TObject);
begin
  if Monitor = false then
  begin
    frmTAPIMon := TfrmTAPIMon.Create(Self);
    frmTAPIMon.Show;
    Monitor := True;
  end;
end;

procedure TfrmMain.btnCallClick(Sender: TObject);
begin
  if Call = False then
  begin
    frmTAPICall := TfrmTAPICall.Create(Self);
    frmTAPICall.Show;
    Call := True;
  end;
end;

end.