www.pudn.com > AutoDail.rar > main.pas

unit Main; 
{ 
	TAPI Test 
        by Davide Moretti  
 
	this code is freeware, and can be used 
	anywhere without permission. 
} 
 
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.