?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Unit2, ExtCtrls;
type
TBHForm = class(TForm)
Panel1: TPanel;
btnSndRv: TButton;
GroupBox2: TGroupBox;
RadioGroup1: TRadioGroup;
GroupBox1: TGroupBox;
lblConn: TLabel;
Label1: TLabel;
lblPhoneNum: TLabel;
lblUserName: TLabel;
cmbPhoneName: TComboBox;
editPWD: TEdit;
editPhoneNum: TEdit;
editUserName: TEdit;
DialUp: TButton;
HangUp: TButton;
OpenDialog1: TOpenDialog;
btnExit: TButton;
procedure btnExitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DialUpClick(Sender: TObject);
procedure cmbPhoneNameChange(Sender: TObject);
procedure editPWDChange(Sender: TObject);
procedure HangUpClick(Sender: TObject);
procedure btnSndRvClick(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure editPhoneNumChange(Sender: TObject);
private
{ Private declarations }
procedure SetEntries;
public
{ Public declarations }
end;
var
BHForm: TBHForm;
TTest : TDialUp;
function ShellExecute(hwnd: Longint; lpOperation: PAnsiChar; lpFile: PAnsiChar;
lpParameters: PAnsiChar; lpDirectory: PAnsiChar;
nShowCmd: Integer): Longint; stdcall;
implementation
uses Unit3;
{$R *.DFM}
procedure TBHForm.btnExitClick(Sender: TObject);
var
i : integer;
sEntry : String;
begin
BHForm.Close;
end;
procedure TBHForm.FormCreate(Sender: TObject);
begin
TTest:=TDialUp.Create(self);
RadioGroup1.ItemIndex:=0;
end;
procedure TBHForm.DialUpClick(Sender: TObject);
begin
TTest.Password:= editPWD.Text;
if RadioGroup1.ItemIndex =0 then
TTest.Dial(NUM_PHONEBOOK)
else
TTest.Dial(NUM_INPUT);
end;
procedure TBHForm.cmbPhoneNameChange(Sender: TObject);
begin
TTest.EntryName:=cmbPhoneName.Text;
editUserName.Text:=TTest.UserName;
end;
procedure TBHForm.editPWDChange(Sender: TObject);
begin
TTest.Password:=editPWD.Text;
end;
procedure TBHForm.HangUpClick(Sender: TObject);
begin
OKBottomDlg.Show ;
OKBottomDlg.lblHint.Caption:='正在斷開連接!';
OKBottomDlg.lblHint.Refresh;
TTest.HangUp;
OKBottomDlg.Hide;
end;
procedure TBHForm.btnSndRvClick(Sender: TObject);
var
sFileName: string;
begin
sFileName:=ExtractFilepath(Application.ExeName);
sFileName:=sFileName+'msimn.exe';
// OpenDialog1.FileName:='';
// OpenDialog1.Execute;
// sFileName:=OpenDialog1.FileName;
// FileToFind := FileSearch('OutLook.exe');
if sFileName <> '' then
ShellExecute(0, nil, PChar(sFileName), nil, nil, SW_NORMAL);;
//ShellExecute(Handle,'Open','mailto:','','',SW_NORMAL);
end;
procedure TBHForm.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then //使用已有連接
begin
lblConn.Visible:=true;
cmbPhoneName.Visible:=true;
lblPhoneNum.Visible:=false;
editPhoneNum.Visible:=false;
editUserName.ReadOnly:=true;
SetEntries;
end
else //自定義連接
begin
lblConn.Visible:=false;
cmbPhoneName.Visible:=false;
lblPhoneNum.Visible:=true;
editPhoneNum.Visible:=true;
editUserName.ReadOnly:=false;
editUserName.Text:='';
end;
end;
procedure TBHForm.SetEntries;
var
i : integer;
sEntry : String;
begin
TTest.GetEntries();
cmbPhoneName.Clear;
for i:=0 to TTest.Entries.Count-1 do
begin
sEntry:=TTest.Entries[i];
cmbPhoneName.Items.Add(sEntry);
end;
cmbPhoneName.ItemIndex:=0;
cmbPhoneNameChange(self);
end;
function ShellExecute; external 'shell32.dll' name 'ShellExecuteA';
procedure TBHForm.editPhoneNumChange(Sender: TObject);
begin
TTest.PhoneNum:=editPhoneNum.Text;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -