tq..

====================================================
uses
ShellAPI, ShlObj,WinSock,//(ip dan host),

{$R *.dfm}
//==========================Start code=======================================
// Memperoleh direktori sistem
function GetSysDir: string;
var SysDir : array [0 .. MAX_PATH] of char;
begin
GetSystemDirectory(@SysDir, MAX_PATH);
Result := SysDir;
end;

// Memperoleh direktori windows
function GetWinDir: string;
var WinDir : array [0 .. MAX_PATH] of char;
begin
GetWindowsDirectory(@WinDir, MAX_PATH);
Result := WinDir;
end;

// Memperoleh direktori temporary
function GetTempDir: string;
var TempDir : array[0 .. 255] of char;
begin
GetTempPath(255, @TempDir);
Result := TempDir;
end;
//============================end code======================direktori windows===

//===============================================function IP dan host============
function GetIP(var HostName, IPAddr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
PHE: PHostEnt; // Pointer ke struktur HOSTENT
HName: PName; // Nama Host
WSAData: TWSAData; // Struktur WSADATA Windows Socket
i: Integer;
begin
Result := False;

// Memulai sesi Windows Socket
if WSAStartup($0101, WSAData) <> 0 then Exit;

IPAddr := '';
New(HName);

// Menemukan nama host standar pada komputer lokal
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := string(HName^);

// Memperoleh informasi host dari nama host yg diketahui
PHE := GetHostByName(HName^);
for i := 0 to PHE^.h_length - 1 do
IPaddr := Concat(IPAddr,
IntToStr(Ord(PHE^.h_addr_list^[i])) + '.');

// Mengeset panjang string alamat IP yg diperoleh
SetLength(IPAddr, Length(IPaddr) - 1);
Result := True;
end;

Dispose(HName);

// Mengakhiri sesi Windows Socket
WSACleanup;
end;
//====================================================end code IP dan host====



Semoga membantu....

procedure Form1.FormCreate(Sender: TObject);
var WinVersion : TOSVersionInfo;
HostName, IP, SWinVer : string;
MyNum, MnNum, BldNum : Integer;
begin

//=======================================direktori windows====================
SysDir.Text := GetSysDir;
WinDir.Text := GetWinDir;
TempDir.Text := GetTempDir;
//========================================end direkktori code=================


//====================================================Versi Windows yg di pakai
WinVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(WinVersion); // cek versi windows

case WinVersion.dwMajorVersion of
3 : SWinVer := 'Windows 3.1';
4 :
begin
case WinVersion.dwPlatformId of
VER_PLATFORM_WIN32_NT :
SWinVer := 'Microsoft Windows NT 4.0';
VER_PLATFORM_WIN32_WINDOWS :
case WinVersion.dwMinorVersion of
0 : SWinVer := 'Microsoft Windows 95';
10 : SWinVer := 'Microsoft Windows 98';
90 : SWinVer := 'Microsoft Windows Millenium';
end;
end; // end case platformID
end;
5 :
begin
case WinVersion.dwMinorVersion of
0 : SWinVer := 'Microsoft Windows 2000';
1 : SWinVer := 'Microsoft Windows Xp';
end;
end;
end;

MyNum := WinVersion.dwMajorVersion;
MnNum := WinVersion.dwMinorVersion;
BldNum := WinVersion.dwBuildNumber;

LabelWinVersion.Text := SWinVer + ' (' +
IntToStr(MyNum)+ '.' + IntToStr(MnNum) + '.' +
IntToStr(BldNum) + ')';

LabelMayor.Text := IntToStr(MyNum);
LabelMinor.Text := IntToStr(MnNum);
LabelBuild.Text := IntToStr(BldNum);

if GetIP(HostName, IP) then
begin
sEdit12.Text := HostName;
sEdit13.Text := IP;
end
else
ShowMessage('Gagal memperoleh nama Host dan IP');
end;