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

Haec stipula ad informaticam spectat. Amplifica, si potes!