mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 01:09:35 +02:00
45 lines
628 B
ObjectPascal
45 lines
628 B
ObjectPascal
unit uw6203;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
const
|
|
CM_TEST = $B000 + 18;
|
|
|
|
type
|
|
TMessage = packed record
|
|
Msg: Cardinal;
|
|
case Integer of
|
|
0: (
|
|
WParam: Longint;
|
|
LParam: Longint;
|
|
Result: Longint);
|
|
1: (
|
|
WParamLo: Word;
|
|
WParamHi: Word;
|
|
LParamLo: Word;
|
|
LParamHi: Word;
|
|
ResultLo: Word;
|
|
ResultHi: Word);
|
|
end;
|
|
|
|
TTest = class
|
|
private
|
|
procedure CMTest(var Msg: TMessage); message CM_TEST;
|
|
end;
|
|
|
|
var
|
|
Err : boolean;
|
|
|
|
implementation
|
|
|
|
procedure TTest.CMTest(var Msg: TMessage);
|
|
begin
|
|
WriteLn('TTest.CMTest');
|
|
err:=false;
|
|
end;
|
|
|
|
end.
|
|
|