dialer Pakietu TP S.A.

potrzebuje program cos jak bankrut tylko zeby obslygiwal pakiet tpsa czyli aby nie liczyl ile impulsow ale ile sekund minut godzin juz wykorzystalem z pakietu
jakie komponenty uzyc i skad je wziac

help

Wszystkie masz w Delphi..
Pobieraj liste otwartych procesów i jeżeli na liście pojawi się dialer to program odpala Timera czyco tam sobie wstawisz i będzie liczył

Na początek zaproponowałbym coś takiego

var
Form1: TForm1;
sec, min, godz:integer;
implementation

{$R *.DFM}
function polaczenie: Boolean;
var
Flags: DWORD;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;

Result := InternetGetConnectedState(@Flags, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if polaczenie then
begin
inc(sec);
end;
label1.caption:=inttostr(sec);
if sec>60 then begin
min:=sec div 60;
label4.caption:=inttostr(min);
end;
if min>60 then begin
godz:=min div 60;
label6.caption:=inttostr(godz);
end;
end;

oczywiscie to wymaga wielu poprawek ale na razie na początek powinno wystarczyc

//Uzywaj tagów [diabel] :-[
bede pamietał o tag'ach