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

• 'DOOM' 3D Engine techniques
• OpenGL (3.) - Procházení scénou
• 3D Studio MAX (7.) - 3D text
• 3D Studio MAX (6.) - Vznášející se dým
• Adobe Photoshop (3.) - Textura vodní hladiny
• Jak se dostat do BIOSů
• Delphi (6.) - Grafika a zvuky
• Delphi (5.) - Zajímavé zdrojáky 2.
• Photoshop Tutoriály (2.) - Temná hvězdná obloha
• OpenGL (2.) - Čtverec s texturou
• OpenGL (1.) - Čtverec s interpolací barvy
• 3D Studio MAX (4.) - Jak vytvořit laser
• Delphi (4.) - Zajímavé zdrojáky
• 3D Studio MAX (3.) - Tvorba 3D krajiny
• Delphi (3.) - Detekce typu procesoru, jeho frekvence a využití

Diskuse k blogu