Newsgroup: it.comp.lang.delphi
Titolo: TAPI - comporre un numero

Salve a tutti !
Vorrei comporre un numero di telefono
utilizzando i toni DTMF che ho trovato in formato WAV
avvicinando la cornetta del telefono agli altoparlanti del PC.
Il telefono riconosce qualcosa, ma non funziona.
I toni DTMF li ho trovati seguendo il link proposto
in un precedente messaggio di questo gruppo.
Non se sono i toni o se sono io !!
Qualcuno avrebbe un piccolo esempio fatto ?
il mio pezzettino di codice è il seguente
dove zero, uno, due, ecc.. sono i file wav salvati in un file  .res
I suoni escono tutti, ma non funziona,..... e non capisco perchè
Grazie a tutti
Martina
----------------------------------------------------
  for i:=0 to Length(Numero) do begin
     if Pos(Numero[i],'0123456789')<>0 then begin
        Cifra:=StrToInt(Numero[i]);
        case Cifra  of
          0: PlaySound(pAnsichar('zero'),   hInstance,SND_RESOURCE or
SND_SYNC);
          1: PlaySound(pAnsichar('uno'),    hInstance,SND_RESOURCE or
SND_SYNC);
          2: PlaySound(pAnsichar('due'),    hInstance,SND_RESOURCE or
SND_SYNC);
                              ecc.. ecc..
        end;
        Application.ProcessMessages;
        if STOP_FermaLaMusica then exit;
        delay(TrackBar1.Position);
     end;
-----------------------------------------------------------

 Qualcuno avrebbe un piccolo esempio fatto ?
{cut}
Il tuo indirizzo non é valido .. dove te lo invio l'esempio ?
Ciao
erik

Ciao Erik
strano...
Puoi riprovare ?
Grazie !
Martina


> Il tuo indirizzo non é valido .. dove te lo invio l'esempio ?
Se l'esempio lo posti anche a noi altri ne rimarra' traccia per quelli che
avranno in futuro lo stesso problema.
Grazie in anticipo
            Marco Bortolani
            info @ 
marcobortolani.it
P.S.
Ho fatto il "Morde" della situazione...

 Grazie in anticipo
Bé a lei ho inviato tutto il codice sorgente
comprensivo di exe e di file res
Comunque posso postare quí la unit (anche se alcune parti non sono
interessate)
Ho appena fatto l'upload e il sorgente é scaricabile da
http://redangel.it/Click_file.asp?m=989
Ciao
erik
unit Toni DTMF;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,MmSystem, StdCtrls, Buttons, ExtCtrls, ComCtrls, Menus,
  CoolTrayIcon,Registry, ImgList,ShellApi;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    TrackBar1: TTrackBar;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    MainMenu1: TMainMenu;
    CoolTrayIcon1: TCoolTrayIcon;
    Opzioni1: TMenuItem;
    Minimizza1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Esci1: TMenuItem;
    Numeri1: TMenuItem;
    Esci2: TMenuItem;
    Edit6: TMenuItem;
    Ripeti1: TMenuItem;
    Button3: TButton;
    ListBox1: TListBox;
    StartUp1: TMenuItem;
    Tonia1: TMenuItem;
    Startmini1: TMenuItem;
    ImageList1: TImageList;
    Toni21: TMenuItem;
    Ricerca: TMenuItem;
    Info4121: TMenuItem;
    Cerca1: TMenuItem;
    Info4122: TMenuItem;
    Paginebianche1: TMenuItem;
    Paginebianche2: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure Minimizza1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Esci1Click(Sender: TObject);
    procedure Esci2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CoolTrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit6Click(Sender: TObject);
    procedure Ripeti1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CoolTrayIcon1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure StartUp1Click(Sender: TObject);
    procedure Tonia1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CoolTrayIcon1DblClick(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure Startmini1Click(Sender: TObject);
    procedure CoolTrayIcon1Cycle(Sender: TObject; NextIndex: Integer);
    procedure Toni21Click(Sender: TObject);
    procedure TrackBar1Enter(Sender: TObject);
    procedure TrackBar1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Info4121Click(Sender: TObject);
    procedure Info4122Click(Sender: TObject);
    procedure Paginebianche1Click(Sender: TObject);
    procedure Paginebianche2Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
    Reg:TRegIniFile;
    procedure ClickNumeri(Sender: TObject);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Toni:Char;
  Conta:integer;
  implementation
uses Unit2, Unit3;
{$R *.dfm}
{$R Toni.RES}
{$R Toni2.RES}
procedure Tform1.ClickNumeri(Sender: TObject);
begin
Edit1.Text:=ListBox1.Items[(TMenuItem(Sender).Tag)];
Button1.Click;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;
begin
inc(conta);
s:=edit1.Text;
toni:=s[conta];
Edit1.SelectAll;
Edit1.SelStart:=conta;
if tonia1.Checked=true then
begin
case Toni of
'1':playsound('T1',hinstance,snd_async+snd_resource);
'2':playsound('T2',hinstance,snd_async+snd_resource);
'3':playsound('T3',hinstance,snd_async+snd_resource);
'4':playsound('T4',hinstance,snd_async+snd_resource);
'5':playsound('T5',hinstance,snd_async+snd_resource);
'6':playsound('T6',hinstance,snd_async+snd_resource);
'7':playsound('T7',hinstance,snd_async+snd_resource);
'8':playsound('T8',hinstance,snd_async+snd_resource);
'9':playsound('T9',hinstance,snd_async+snd_resource);
'0':playsound('T0',hinstance,snd_async+snd_resource);
'#':playsound('Tc',hinstance,snd_async+snd_resource);
'*':playsound('Ta',hinstance,snd_async+snd_resource);
end;
end;
if Tonia1.Checked=false then
begin
case Toni of
'1':playsound('T21',hinstance,snd_async+snd_resource);
'2':playsound('T22',hinstance,snd_async+snd_resource);
'3':playsound('T23',hinstance,snd_async+snd_resource);
'4':playsound('T24',hinstance,snd_async+snd_resource);
'5':playsound('T25',hinstance,snd_async+snd_resource);
'6':playsound('T26',hinstance,snd_async+snd_resource);
'7':playsound('T27',hinstance,snd_async+snd_resource);
'8':playsound('T28',hinstance,snd_async+snd_resource);
'9':playsound('T29',hinstance,snd_async+snd_resource);
'0':playsound('T20',hinstance,snd_async+snd_resource);
end;
end;
Edit3.Text:=edit3.Text+toni;
If conta=Length(Edit1.Text) Then
begin
Timer1.Enabled:=false;
conta:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 If Edit1.Text <> '' then
 begin
Edit3.Clear;
Timer1.Enabled:=true;
Form1.ActiveControl:=Edit1;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval:=TrackBar1.Position;
Edit2.Text:=IntToStr(Timer1.Interval);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Button1.Align:=AlBottom;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
playsound('T1',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'1';
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
playsound('T2',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'2';
end;
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
playsound('T8',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'8';
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
playsound('T7',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'7';
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'1','2','3','4','5','6',
'7','8','9','0','*','#',
#13,#8:key:=key
else
begin
key:=#0;
beep;
end;
end;
if Key=#13 then
begin
Button1.Click;
key:=#0;
end;
If CheckBox1.Checked=true then begin
If Tonia1.Checked=true then begin
if Key=#49 then playsound('T1',hinstance,snd_async+snd_resource);
if Key=#50 Then playsound('T2',hinstance,snd_async+snd_resource);
if Key=#51 Then playsound('T3',hinstance,snd_async+snd_resource);
if Key=#52 Then playsound('T4',hinstance,snd_async+snd_resource);
if Key=#53 Then playsound('T5',hinstance,snd_async+snd_resource);
if Key=#54 Then playsound('T6',hinstance,snd_async+snd_resource);
if Key=#55 Then playsound('T7',hinstance,snd_async+snd_resource);
if Key=#56 Then playsound('T8',hinstance,snd_async+snd_resource);
if Key=#57 Then playsound('T9',hinstance,snd_async+snd_resource);
if Key=#48 Then playsound('T0',hinstance,snd_async+snd_resource);
if Key=#35 Then playsound('Tc',hinstance,snd_async+snd_resource);
if Key=#42 Then playsound('Ta',hinstance,snd_async+snd_resource);
end;
If Tonia1.Checked=false then
begin
if Key=#49 then playsound('T21',hinstance,snd_async+snd_resource);
if Key=#50 Then playsound('T22',hinstance,snd_async+snd_resource);
if Key=#51 Then playsound('T23',hinstance,snd_async+snd_resource);
if Key=#52 Then playsound('T24',hinstance,snd_async+snd_resource);
if Key=#53 Then playsound('T25',hinstance,snd_async+snd_resource);
if Key=#54 Then playsound('T26',hinstance,snd_async+snd_resource);
if Key=#55 Then playsound('T27',hinstance,snd_async+snd_resource);
if Key=#56 Then playsound('T28',hinstance,snd_async+snd_resource);
if Key=#57 Then playsound('T29',hinstance,snd_async+snd_resource);
if Key=#48 Then playsound('T20',hinstance,snd_async+snd_resource);
end;
end;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
playsound('T3',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'3';
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
playsound('T4',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'4';
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
playsound('T5',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'5';
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
playsound('T6',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'6';
end;
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
playsound('T9',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'9';
end;
procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
playsound('Ta',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'*';
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
playsound('T0',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'0';
end;
procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
playsound('Tc',hinstance,snd_async+snd_resource);
Edit1.Text:=Edit1.Text+'#';
end;
procedure TForm1.Minimizza1Click(Sender: TObject);
begin
CoolTrayIcon1.MinimizeToTray:=true;
Application.Minimize;
CoolTrayIcon1.HideTaskbarIcon;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Edit1.SetFocus;
Edit1.SelStart:=Length(Edit1.Text);
end;
procedure TForm1.Esci1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Esci2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
CMenu:TmenuItem;
St:TstringList;
no,nu:string;
i:integer;
a:char;
begin
st:=TstringList.Create;
St.LoadFromFile(ExtractFilePath(application.exename)+'Numeri.num');
Numeri1.Clear;
ListBox1.Clear;
for i:=0 to St.Count-1 do
begin
no:=copy(St.Strings[i],0,pos('-',st.Strings[i])-1);
nu:=copy(st.Strings[i],pos('-',st.Strings[i])+1,length(st.Strings[i]));
ListBox1.Items.Add(nu);
CMenu := TMenuItem.Create(Self);
Numeri1.Insert(i,Cmenu);
Cmenu.Tag:=i;
Cmenu.OnClick:=ClickNumeri;
a:=no[1];
case a of
'<': begin
CMenu.Caption:=Copy(no,2,Length(no));
Cmenu.ImageIndex:=0;
end;
'>': begin
CMenu.Caption:=Copy(no,2,Length(no));
 Cmenu.ImageIndex:=1;
 end;
 '^': begin
CMenu.Caption:=Copy(no,2,Length(no));
 Cmenu.ImageIndex:=2;
end;
'*': begin
CMenu.Caption:=Copy(no,2,Length(no));
Cmenu.ImageIndex:=3;
end;
'°': begin
CMenu.Caption:=Copy(no,2,Length(no));
Cmenu.ImageIndex:=4;
end
else
Cmenu.Caption:=no;
end;
end;
end;
procedure TForm1.CoolTrayIcon1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Esci1.Visible:=true;
Ripeti1.Visible:=true;
Toni21.Visible:=true;
Cerca1.Visible:=true;
end;
procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Esci1.Visible:=false;
Ripeti1.Visible:=false;
Toni21.Visible:=false;
Cerca1.Visible:=false;
end;
procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Esci1.Visible:=false;
Ripeti1.Visible:=false;
Toni21.Visible:=false;
Cerca1.Visible:=false;
end;
procedure TForm1.Edit6Click(Sender: TObject);
var
i:integer;
st:tstringlist;
c,b:string;
begin
CoolTraYicon1.CycleIcons:=true;
 Cooltrayicon1.CycleInterval:=1000;
st:=tstringlist.Create;
st.LoadFromFile(ExtractFilePath(application.exename)+'Numeri.num');
for i:=0 to st.Count -1 do
begin
b:=copy(st.Strings[i],0,pos('-',st.Strings[i])-1);
c:=copy(st.Strings[i],pos('-',st.Strings[i])+1,length(st.Strings[i]));
Form2.ValueListEditor1.InsertRow(b,c,true);
end;
Form2.ShowModal;
St.Free;
end;
procedure TForm1.Ripeti1Click(Sender: TObject);
begin
Button1.Click;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
vel:integer;
begin
reg:=TregIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
StartUp1.Checked:=Reg.ReadBool('SOFTWARE\Microsoft\Windows\DTFM','Startup',f
alse);
StartMini1.Checked:=Reg.ReadBool('SOFTWARE\Microsoft\Windows\DTFM','StartMin
i',false);
Tonia1.Checked:=Reg.ReadBool('SOFTWARE\Microsoft\Windows\DTFM','TipoDiTono',
False);
vel:=Reg.ReadInteger('SOFTWARE\Microsoft\Windows\DTFM','Velocita',500);
Timer1.Interval:=vel;
TrackBar1.Position:=vel;
Edit2.Text:=IntToStr(Timer1.Interval);
Reg.Free;
If StartMini1.Checked=false Then
Form1.WindowState:=WsNormal;
Button3.Click;
CoolTrayIcon1.Icon:=Form1.Icon;
Toni21.Checked:=Tonia1.Checked;
Toni21.Caption:=Tonia1.Caption;
end;
procedure TForm1.CoolTrayIcon1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
if edit1.Text<>'' then CoolTrayIcon1.Hint:=Tonia1.Caption+ ' Vel
'+Edit2.Text+' Ultimo numero chiamato '+Edit1.Text
else
CoolTrayIcon1.Hint:=Tonia1.Caption+' Vel '+Edit2.Text+' Non presente';
end;
procedure TForm1.StartUp1Click(Sender: TObject);
begin
reg:=TregIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
If Startup1.Checked=false then
begin
Reg.WriteString('SOFTWARE\Microsoft\Windows\CurrentVersion\Run','DTMF
Composer',Application.ExeName);
StartUp1.Checked:=true;
Reg.WriteBool('SOFTWARE\Microsoft\Windows\DTFM','Startup',true);
end
else
begin
reg.DeleteKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run','DTMF
Composer');
StartUp1.Checked:=false;
Reg.WriteBool('SOFTWARE\Microsoft\Windows\DTFM','Startup',false);
end;
Reg.Free;
end;
procedure TForm1.Tonia1Click(Sender: TObject);
begin
reg:=TregIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
If Tonia1.Checked=false then
begin
Tonia1.Caption:='Toni (b)';
Reg.WriteBool('SOFTWARE\Microsoft\Windows\DTFM','TipoDiTono',true);
Tonia1.Checked:=true;
end
else
begin
Tonia1.Caption:='Toni (a)';
Reg.WriteBool('SOFTWARE\Microsoft\Windows\DTFM','TipoDiTono',False);
Tonia1.Checked:=false;
end;
Toni21.Checked:=Tonia1.Checked;
Toni21.Caption:=Tonia1.Caption;
reg.Free;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
reg:=TregIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.WriteInteger('SOFTWARE\Microsoft\Windows\DTFM','Velocita',TrackBar1.Posi
tion);
reg.Free;
end;
procedure TForm1.CoolTrayIcon1DblClick(Sender: TObject);
begin
CoolTrayIcon1.ShowTaskbarIcon;
Application.Restore;
Form1.Activate;
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
If edit1.Text<>'' then Ripeti1.Enabled:=true
else
Ripeti1.Enabled:=false;
end;
procedure TForm1.Startmini1Click(Sender: TObject);
begin
reg:=TregIniFile.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
If StartMini1.Checked=false then
begin
StartMini1.Checked:=true;
Reg.WriteBool('SOFTWARE\Microsoft\Windows\DTFM','StartMini',true);
end
else
begin
StartMini1.Checked:=false;
Reg.WriteBool('SOFTWARE\Microsoft\Windows\DTFM','StartMini',false);
end;
Reg.Free;
end;
procedure TForm1.CoolTrayIcon1Cycle(Sender: TObject; NextIndex: Integer);
begin
Form2.Icon:=Form1.CoolTrayIcon1.Icon;
case CoolTrayIcon1.IconIndex of
0:Form2.Caption:='<';
1:Form2.Caption:='>';
2:Form2.Caption:='^';
3:Form2.Caption:='*';
4:Form2.Caption:='°';
end;
end;
procedure TForm1.Toni21Click(Sender: TObject);
begin
Tonia1.Click;
Toni21.Checked:=Tonia1.Checked;
Toni21.Caption:=Tonia1.Caption;
end;
procedure TForm1.TrackBar1Enter(Sender: TObject);
begin
Edit2.Color:=ClRed;
end;
procedure TForm1.TrackBar1Exit(Sender: TObject);
begin
Edit2.Color:=ClWhite;
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=ClRed;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Color:=ClWhite;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Form1.ActiveControl:=Edit1;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
Form1.ActiveControl:=Edit1;
end;
procedure TForm1.Info4121Click(Sender: TObject);
begin
ShellExecute(Handle,'open','
http://www.info412.it/
','','',SW_SHOW);
end;
procedure TForm1.Info4122Click(Sender: TObject);
begin
ShellExecute(Handle,'open','
http://www.info412.it/
','','',SW_SHOW);
end;
procedure TForm1.Paginebianche1Click(Sender: TObject);
begin
ShellExecute(Handle,'open','
http://paginebianche.virgilio.it
','','',SW_SHOW)
;
end;
procedure TForm1.Paginebianche2Click(Sender: TObject);
begin
ShellExecute(Handle,'open','
http://paginebianche.virgilio.it
','','',SW_SHOW)
;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Try
if  not (StrToInt(Edit2.Text)>500) and not (StrToInt(Edit2.Text)<130)
then TrackBar1.Position:=StrToInt(Edit2.Text) else Edit2.Text:='170';
except
Edit2.Text:='170';
end;
end;
end.

Ragazzi vi garantisco che è fantastico !
Unica accortezza: dovete avvicinare
la cornetta agli altoparlanti.
Bravo Erik !
Martina


Martina Locazzo wrote:
< Cut di settecento righe>
Per favore: 
http://www.marco5x.net/usenet/quoting-3.php
Ciao.
--
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

 ACSH