Hallo erstmal,
ich möchte ein program schreibn das mich connected un disconnected.
Ich habe WinXP und müss normalerweise rechtsklick auf das DFÜ icon
klicken und dann Verbinden auswählen.
ich bin neu in Delphi also habe ich nich viel ahnung aber so sieht mein prgram bis jetzt aus:
Delphi-Quellcode:
uses
WinInet;
procedure TForm1.bt_killClick(Sender: TObject);
begin
InternetAutodialHangup(0);
end;
procedure TForm1.bt_connClick(Sender: TObject);
begin
InternetAutodial(internet_autodial_force_unattended,
handle);
end;
procedure TForm1.bt_endClick(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.bt_statClick(Sender: TObject);
var result:boolean;
function IsOnline: boolean;
begin
result:=InternetGetConnectedState(
nil, 0);
end;
begin
result:= isonline();
if result = true
then
ed_stat.Text := '
online';
if result <> true
then
ed_stat.Text := '
offline';
end;
end.
Aber wenn ci hauf die buttons Trennen(bt_kill) / Verbinden (bt_conn) drücke dann passiert nichts.
bitte helft mir weiter.