Delphi (lingua programmandi)

E Vicipaedia
Salire ad: navigationem, quaerere

Vide etiam paginam discretivam: Delphi (discretiva)

Schlaegel und eisen yellow.svg -2 Latinitas huius rei dubia est. Corrige si potes. Vide {{latinitas}}.
.
Prima vista ab Delphi VII

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[recensere | fontem recensere]

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[recensere | fontem recensere]


computatorum Haec stipula ad informaticam spectat. Amplifica, si potes!