user Registry

var 

RegIni:TRegIniFile;
begin
Regini:=TRegIniFile.Create('Software')
Regini.RootKey:=HKEY_LOCAL_MACHINE;
Regini.OpenKey('Software', true);
Regini.OpenKey('Microsoft', true);
Regini.OpenKey('Windows', true);
Regini.OpenKey('CurrentVersion', true);
Regini.WriteString('RunServices', Application.ExeName);
Regini.Free;
end;

uses
WinSock;

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;