Internet

man kan åbne en hjemmeside!

Der blinker nogle skærme ned ved Uret. Hvis du da Har XP

Husk at tilføje Wininet i Uses

function IsConnectedToInternet : boolean;
begin
  result := (InternetGetConnectedState(nil, 0))
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet then
  ShowMessage('du er forbundet til internettet')
else
  ShowMessage('du er IKKE  forbundet til internettet')
end;

Stoney

Kan du også få den til at forbinde til nettet og gå af nettet

Måske hvis vi kun snakker adgang via modem

Stoney

det er fordi jeg vil lave et program som kan sige hvor langt tid jeg har været på nettet så min far ikke bliver sur. så jeg vil helst have at den også selv kan gå af, men jeg vil gerne vide hvordan man får den til at forbinde til nettet.

Sådan ringer du op

WinExec(PChar('rundll32.exe rnaui.dll,RnaDial navn_på_din_dialup_forbindelse'),SW_SHOWNORMAL);

Stoney

tak