Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Узнать, поддерживает ли компьютер состояния ожидания и сна
//********************************************************************** // Check if hibernation is allowed //********************************************************************* functionHibernateAllowed: Boolean; type
TIsPwrHibernateAllowed = function
: Boolean; stdcall
; var
hPowrprof: HMODULE; IsPwrHibernateAllowed: TIsPwrHibernateAllowed; begin
Result := False; if
IsNT4Or95 then
Exit; hPowrprof := LoadLibrary('powrprof.dll'); if
hPowrprof <> 0 then
begin
try
@IsPwrHibernateAllowed := GetProcAddress(hPowrprof, 'IsPwrHibernateAllowed'); if
@IsPwrHibernateAllowed <> nil
then
begin
Result := IsPwrHibernateAllowed; end
; finally
FreeLibrary(hPowrprof); end
; end
; end
; //********************************************************************** // Check if suspend is allowed //********************************************************************** function
SuspendAllowed: Boolean; type
TIsPwrSuspendAllowed = function
: Boolean; stdcall
; var
hPowrprof: HMODULE; IsPwrSuspendAllowed: TIsPwrSuspendAllowed; begin
Result := False; hPowrprof := LoadLibrary('powrprof.dll'); if
hPowrprof <> 0 then
begin
try
@IsPwrSuspendAllowed := GetProcAddress(hPowrprof, 'IsPwrSuspendAllowed'); if
@IsPwrSuspendAllowed <> nil
then
begin
Result := IsPwrSuspendAllowed; end
; finally
FreeLibrary(hPowrprof); end
; end
; end
;