powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazarus не компилит
3 сообщений из 3, страница 1 из 1
Lazarus не компилит
    #39836549
Cobalt747
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
может кто объяснить - что надо изменить?

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
type
  TIsPwrShutdownAllowed = function: WordBool; stdcall;

procedure PowerOff;
var
  h: integer;
  P: TIsPwrShutdownAllowed;
begin
  try
    if not IsWindowsNT then
      Abort;
    h := LoadLibrary('powrprof.dll');
    if h = 0 then
      Abort;
    try
      Pointer(P) := GetProcAddress(h, 'IsPwrShutdownAllowed');
      if not Assigned(P) then
        Abort;
      if not P then
        Abort;
    finally
      FreeLibrary(h);
    end;
    ExitWindowsEx(EWX_POWEROFF, 0);
  except
    ExitWindowsEx(EWX_SHUTDOWN, 0);
  end;
end; 



Ругается
Error: Operator is not overloaded: not "<procedure variable type of function:WordBool;StdCall>"
...
Рейтинг: 0 / 0
Lazarus не компилит
    #39836550
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Cobalt747,

Код: pascal
1.
if not P() then
...
Рейтинг: 0 / 0
Lazarus не компилит
    #39836551
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
function IsPwrShutdownAllowed: BOOL; stdcall;
?
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazarus не компилит
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]