Delphi (lingua programmandi)

Vide etiam paginam discretivam: Delphi (discretiva)

Schlaegel und eisen yellow.svg -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.

.
Prima vista ab Delphi VII

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

Textus linguae DelphiRecensere

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 externiRecensere


  Haec stipula ad informaticam spectat. Amplifica, si potes!