Странно. Почему Delphi это не хавает?

← →
}|{yk © (2004-03-12 16:48) [0]

var
FinishMessage: UINT;
begin
FinishMessage:=RegisterWindowMessage("FINISH_LOADING_DATA");
BroadcastSystemMessage(BSF_NOHANG,BSM_APPLICATIONS,FinishMessage,0,0);
end;
Ошибка несовместимости PDWORD и Interger

При том что функция имеет вид
long BroadcastSystemMessage( DWORD dwFlags,
LPDWORD lpdwRecipients,
UINT uiMessage,
WPARAM wParam,
LPARAM lParam
);

← →
clickmaker © (2004-03-12 16:53) [1]

Разницу между константой и указателем сечешь? :)

var Recipients: cardinal;
Recipients := BSM_APPLICATIONS;
BroadcastSystemMessage(BSF_NOHANG,@Recipients,FinishMessage,0,0);

введи переменную, присвой нужных Recipients и с @ используй

Странно. Почему Delphi это не хавает? Найти похожие ветки