[Casper-Hacker]

Сообщение от ApplicatiOn

помогите решить несколько вопросов по сети:

1. Как Определить какой Web Browser стоит по умолчанию
2. Как Определить внешний и внутренний IP адрес
3. Как Узнать скорость текущего соединения
4. Как Определить размер файла с сервера (по ссылке)
5. Как Отключить/Включить интернет соединение

?

естественно програмным путем

Внешний IP:

Код:

function getip:string;
var
a:integer;
source2ip:string;
http1:TidHttp;
begin
http1:=Tidhttp.Create(nil);
source2ip:=http1.Get('http://2ip.ru');
a:=pos('<font color="#0033FF">',source2ip);
delete(source2ip,1,a+22);
a:=pos('</font>',source2ip);
delete(source2ip,a,length(source2ip)-a+1);
Result:=source2ip;
http1.Destroy;
end;

Внутренний IP:

Код:

function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;

В Uses добавь WinSock.

Скорость интернет соединения делай по тому же способу как и внешний ip только со странички http://2ip.ru/speed/test.php

Веб браузер по умолчанию...
Код Дельфи Мира.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  KeyName: string;
  ValueStr: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    KeyName := 'htmlfile\shell\open\command';
    if Reg.OpenKey(KeyName, False) then
    begin
      ValueStr := Reg.ReadString('');
      Reg.CloseKey;
      Label1.Caption := ValueStr;
    end
    else
      ShowMessage('No Default Webbrowser !');
  finally
    Reg.Free;
  end;
end;

4,5 не знаю... Но точно есть на дельфи мире...