Delphi (lingua programmationis)

Vide etiam paginam discretivam: Delphi (discretiva).

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

Delphi est lingua programmationis, quae prima est creata anno 1995. Primum nomen AppBuilder habebat, tum denique in Delphi mutatum est. Borland Delphi habebat, sed ab anno 2006 usque ad 2008 CodeGear, deinde Embarcadero 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!