www.pudn.com > telephonefordelphi.rar > UnitRingDetect.pas

unit UnitRingDetect; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, Buttons; 
 
type 
  TFormRingDetect = class(TForm) 
    Label13: TLabel; 
    ComboBox1: TComboBox; 
    Button1: TButton; 
    OpenDialog1: TOpenDialog; 
    BitBtn1: TBitBtn; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure ComboBox1Change(Sender: TObject); 
    procedure ComboBox1Exit(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FormRingDetect: TFormRingDetect; 
 
implementation 
 
uses UnitMain; 
 
{$R *.DFM} 
 
procedure TFormRingDetect.FormCreate(Sender: TObject); 
begin 
   if (FormMain.Reg.ValueExists('RingToRun')) then Combobox1.text:=FormMain.Reg.ReadString('RingToRun'); 
end; 
 
procedure TFormRingDetect.Button1Click(Sender: TObject); 
begin 
   if OpenDialog1.Execute then 
   begin 
      combobox1.text:=OpenDialog1.FileName; 
      ComboBox1Change(Sender); 
   end; 
end; 
 
procedure TFormRingDetect.ComboBox1Change(Sender: TObject); 
begin 
   FormMain.Reg.WriteString('RingToRun',trim(ComboBox1.text)); 
end; 
 
procedure TFormRingDetect.ComboBox1Exit(Sender: TObject); 
begin 
   ComboBox1Change(Sender); 
end; 
 
end.