Delphi (5.) - Zajímavé zdrojáky 2.

Pokračování detekcí v Delphi z minulého týdne - Detekce IP adresy, Detekce Seriového čísla HDD a detekce ON-LINE připojení.

Detekce IP adresy:

function my_ip_address:longint;
const
  bufsize=255;
var
  buf: pointer;
  RemoteHost : PHostEnt;

begin
  buf:=NIL;
  try
    getmem(buf,bufsize);
    winsock.gethostname(buf,bufsize);
    RemoteHost:=Winsock.GetHostByName(buf);
    if RemoteHost=NIL then
      my_ip_address:=winsock.htonl($07000001)  // 127.0.0.1
    else
      my_ip_address:=longint(pointer(RemoteHost^.h_addr_list^)^);
  finally
    if buf<>NIL then  freemem(buf,bufsize);
  end;
  result:=winsock.ntohl(result);
end;

Detekce ON-LINE připojení:

uses wininet;

functionIsConnectedToInternet: bool;
begin
  dwConnectionTypes := 
    INTERNET_CONNECTION_MODEM 
    + INTERNET_CONNECTION_LAN
    + INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then 
    Result := True
  else Result := False;
end;

Detekce seriového čísla HDD:

procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum : pdword;
  a, b : dword;
  Buffer  : array[0..255] of char;

begin
  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0)
  then Label1.Caption := IntToStr(SerialNum^);
end;	

Vyšlo 29.09.2001, v blogu: 0 1 2 3 4 5 6 7 8

Děkuji, že jste se rozhodl(a) přečíst tento článek. Budu rád i za komentář. Pokud Vás tento článek zaujal a rádi byste jej doporučili ostatním, podpořte mně prosím tím, že věnujete minutku svého času a uděláte mi reklamu na linkuj.cz, vybrali.sme.sk či jagg.cz. Přeji příjemné čtení

Poslední články

Diskuse k blogu

Zatím nikdo nevložil komentář. Chcete být první? Přidání příspěvku
©PC-guru.cz 2000-2008 | Optimalizováno pro 1024*768