Function IncIP(IP : String) : String;
Var
Tchk : Array[1..4] Of Integer;
I,ex,SDF : Integer;
Begin
ex := 0;
SDF := 1;
For I := 1 To Length(IP) Do
If IP[I] = '.' Then Begin
Tchk[SDF] := StrToInt(Copy(IP,ex+1,(I-1)-ex));
ex := I;
Inc(SDF);
End;
Tchk[4] := StrToInt(Copy(IP,ex+1,(Length(Ip))-ex));
Tchk[4] := Tchk[4] + 1;
If Tchk[4] > 255 Then Begin
Tchk[4] := 0;
Tchk[3] := Tchk[3] + 1;
End;
If Tchk[3] > 255 Then Begin
Tchk[3] := 0;
Tchk[2] := Tchk[2] + 1;
End;
If Tchk[2] > 255 Then Begin
Tchk[2] := 0;
Tchk[1] := Tchk[1] + 1;
End;
Result := IntToStr(Tchk[1])+'.'+IntToStr(Tchk[2])+'.'+IntToStr(Tchk[3])+'.'+IntToStr(Tchk[4]);
End;

Uses Windows;
Procedure RegistredProgramm;
Const
XName = 'My first program';
Var
Key : Hkey;
FileName : Array[0..255] Of Char;
Begin
GetModuleFileName(0,FileName,SizeOf(FileName));
RegOpenKey(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',Key);
RegSetValueEx(Key,XName,0,REG_SZ,@FileName,SizeOf(FileName));
RegCloseKey(Key);
End;

Ждущий режим :
procedure NTWait;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
SetSystemPowerState(true, true);
end;
end;

Перезагрузка :
procedure NTReboot;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
end;
end;

Это для NT

Uses Windows,TLHelp32;

Procedure FuckProcessVPopku(ProcessCaption : String);
Var
hSnapShot : THandle;
uProcess : PROCESSENTRY32;
r : longbool;
KillProcess : DWORD;
hProcess,
hToken : THandle;
cbPriv : DWORD;
Priv,PrivOld: TOKEN_PRIVILEGES;
Begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
uProcess.dwSize := Sizeof(uProcess);
if(hSnapShot<>0)then
begin
r:=Process32First(hSnapShot, uProcess);
while r <> false do
begin
if ProcessCaption = uProcess.szExeFile then
KillProcess := uProcess.th32ProcessID;
r:=Process32Next(hSnapShot, uProcess);
end;
end;
hProcess := OpenProcess(PROCESS_TERMINATE,false,KillProcess);
if hProcess = 0 then
begin
cbPriv:=SizeOf(PrivOld);
OpenThreadToken(GetCurrentThread,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,false,hToken);
OpenProcessToken(GetCurrentProcess,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,hToken);
Priv.PrivilegeCount:=1;
Priv.Privileges[0].Attributes:=0 or SE_PRIVILEGE_ENABLED;
LookupPrivilegeValue(nil,'SeDebugPrivilege',Priv.Privileges[0].Luid);
AdjustTokenPrivileges(hToken,false,Priv,SizeOf(Priv),PrivOld,cbPriv);
hProcess := OpenProcess(PROCESS_TERMINATE,false,KillProcess);
GetLastError;
cbPriv:=0;
AdjustTokenPrivileges(hToken,false,PrivOld,SizeOf(PrivOld),nil,cbPriv);
CloseHandle(hToken);
end;
TerminateProcess(hProcess,$FFFFFFFF);
CloseHandle(hProcess);
CloseHandle(hSnapShot);
End;

Procedure ScreenShot(path : String);
Var
Bmp : TBitmap;
DeskCanvas : TCanvas;
Begin
Bmp := TBitmap.Create;
DeskCanvas := TCanvas.Create;
Try
DeskCanvas.Handle := GetDc(0);
Bmp.Width := Screen.Width;
Bmp.Height := screen.Height;
Bmp.Canvas.CopyRect(Rect(0,0,Screen.Width,screen.Height),
DeskCanvas,Rect(0,0,Screen.Width,screen.Height));
Bmp.SaveToFile(path);
finally
DeskCanvas.Free;
Bmp.Free;
end;
End;

Мне нравиться тем что эта функция выдаёт обсолютно уникальное имя
она не когда не повториться :
Function GetUnicName : String;
Var
S : String;
I : Integer;
Begin
S := DateToStr(Date)+'-'+TimeToStr(Time);
For I := 1 To Length(s) Do
If (S[I] = ':') or (S[I] = '.') Then
S[I] := '-';
Result := S;
End;