Fórum Discador pra Agenda Telefonica #211876

Tenho um exemplo que encontrei na web ainda nao testei mas ele tem uma rotina de testar modem e discar pelo computador me da seu email que te mando juntamente com o Tdial Up que e um utilitario de modem talvez te sirva tb

OK

Coloque este codigo no botão discar

var
Porta, Fone, msg:String;
begin
Porta:=´COM3´;

hCommFile:= CreateFile( PChar(Porta), GENERIC_WRITE,
0, //not shared
nil, //no security
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0 );


if hCommFile = INVALID_HANDLE_VALUE then
begin
msg:=´Não foi possível abrir a porta do Modem.´+#13+
´Discagem cancelada, favor entrar encontato com o suporte Técnico.´;
Application.MessageBox(Pchar(MSG),´Erro Internto´,MB_ICONERROR + mb_OK);
CloseHandle(hCommFile);
end;

Fone:=´ATDT´+EDIT1.TEXT+1310;

NumberWritten:=0;//Envia a String de Comando
Status:=WriteFile( hCommFile,PChar(Fone)[0],
Length(Fone),
NumberWritten,
nil);
msg:=´Favor após 3 segundos retire o telefone do gancho e Clique OK!´;
Application.MessageBox(Pchar(MSG),´Atenção´,MB_ICONINFORMATION + mb_OK);
WriteFile(hCommFile,´ATH´,5,NumberWritten,nil);//Desconecta a ligação (Hangup)
CloseHandle(hCommFile);