| 5 |
|
|
| 6 |
unit wmessages; |
unit wmessages; |
| 7 |
//this unit contains various functions and types to make it easier to write |
//this unit contains various functions and types to make it easier to write |
| 8 |
//code that works with both real windows messages and lmessages |
//code that works with both real windows messages and lcoremessages |
| 9 |
|
|
| 10 |
interface |
interface |
| 11 |
uses windows,messages,pgtypes; |
uses windows,messages,pgtypes; |
| 15 |
|
|
| 16 |
//according to MS you are supposed to use get/setwindowlongptr to get/set |
//according to MS you are supposed to use get/setwindowlongptr to get/set |
| 17 |
//pointers in extra window memory so your program can be built for win64, this |
//pointers in extra window memory so your program can be built for win64, this |
| 18 |
//is also the only interface to window memory that lmessages offers but delphi |
//is also the only interface to window memory that lcoremessages offers but delphi |
| 19 |
//doesn't define it so alias it to getwindowlong here for win32. |
//doesn't define it so alias it to getwindowlong here for win32. |
| 20 |
{$ifndef win64} //future proofing ;) |
{$ifndef win64} //future proofing ;) |
| 21 |
function getwindowlongptr(ahwnd:hwnd;nindex:integer) : taddrint; |
function getwindowlongptr(ahwnd:hwnd;nindex:integer) : taddrint; |
Parent Directory
| 
Revision Log
| 
Patch