Delphi (lingua programmandi)

Vide etiam paginam discretivam: Delphi (discretiva).

-2 Latinitas huius rei dubia est. Corrige si potes. Vide {{latinitas}}.

Delphi est lingua programmandi, quae prima est creata anno 1995. Primum nomen AppBuilder habebat, tum denique in Delphi mutatum est. Borland Delphi habebat, sed ab anno 2006 CodeGear Delphi habet.

Delphi ad familiam linguarum programmandi, cui nomen Pascal est, tributum est. Delphi linguae Pascali similis, sicut C ea est, quae C++ appellatur.

Textus linguae Delphi

Haec est functio, quae systemati administrativo computatrali Windows finem dat.

 function TerminateWindows(RebootParam: Longword): Boolean;
 var
   TTokenHd: THandle;
   TTokenPvg: TTokenPrivileges;
   cbtpPrevious: DWORD;
   rTTokenPvg: TTokenPrivileges;
   pcbtpPreviousRequired: DWORD;
   tpResult: Boolean;
 const
   SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
 Begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then
   Begin
   tpResult := OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TTokenHd);
   if tpResult then
     Begin
     tpResult := LookupPrivilegeValue(nil,SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
     TTokenPvg.PrivilegeCount := 1;
     TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     cbtpPrevious := SizeOf(rTTokenPvg);
     pcbtpPreviousRequired := 0;
     if tpResult then
       Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg, cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
     end;
   end;
   Result := ExitWindowsEx(RebootParam, 0);
 end;

Nexus externi

About Delphi Programming by Zarko Gajic.
Delphi Basics home page.
Delphi Sources - More than 850 Delphi codes and sources, forum, FAQ (In lingua russica)
Turbo Delphi
Delphi Coding Community.
Merlin's Delphi Forge
Wings of Wind Software - Delphi community newspaper
Delphigeist -- The Spirit of Delphi^{[nexus deficit]}
Free Source Code for beginners

computatorum

Haec stipula ad informaticam spectat. Amplifica, si potes!