How to set high bits?

From: [at]} <Wojtek>
Date: Tue, 4 Jun 2002 11:55:42 -0400 (EDT)

----boundary-LibPST-iamunique-181220705_-_-
Content-type: text/plain

Hi:

  I am developing a Windows API module and I am getting into the following
problem. The declaration below (taken from Visual Basic) sets the highest
bit of the 32-bit word. This works in VB. How can I translate this to
Component Pascal?

Public Const GENERIC_READ = &H80000000

None of the following compiles under BlackBox

CONST
GENERIC_READ* = 080000000X; (* number too large*)
GENERIC_READ* = SYSTEM.VAL(INTEGER,{31}); (*expression should be constant*)
GENERIC_READ* = {31}(INTEGER); (* ";" missing *)

How can I declare such a constant?

Thank you,

Wojtek Skulski skulski{([at]})nowhere.xy

--------------------------------------------

To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
   blackbox-request{([at]})nowhere.xy

To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.

Send any problem reports or questions related to this email list to the list owner at
   owner-blackbox{([at]})nowhere.xy

Current posting policy:

a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.

b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.


----boundary-LibPST-iamunique-181220705_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"

e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpOlxwYXINClxwYXINCiAgSSBhbSBkZXZlbG9w
aW5nIGEgV2luZG93cyBBUEkgbW9kdWxlIGFuZCBJIGFtIGdldHRpbmcgaW50byB0aGUgZm9sbG93
aW5nXHBhcg0KcHJvYmxlbS4gVGhlIGRlY2xhcmF0aW9uIGJlbG93ICh0YWtlbiBmcm9tIFZpc3Vh
bCBCYXNpYykgc2V0cyB0aGUgaGlnaGVzdFxwYXINCmJpdCBvZiB0aGUgMzItYml0IHdvcmQuIFRo
aXMgd29ya3MgaW4gVkIuIEhvdyBjYW4gSSB0cmFuc2xhdGUgdGhpcyB0b1xwYXINCkNvbXBvbmVu
dCBQYXNjYWw/XHBhcg0KXHBhcg0KUHVibGljIENvbnN0IEdFTkVSSUNfUkVBRCA9ICZIODAwMDAw
MDBccGFyDQpccGFyDQpOb25lIG9mIHRoZSBmb2xsb3dpbmcgY29tcGlsZXMgdW5kZXIgQmxhY2tC
b3hccGFyDQpccGFyDQpDT05TVFxwYXINCkdFTkVSSUNfUkVBRCogPSAwODAwMDAwMDBYOyAoKiBu
dW1iZXIgdG9vIGxhcmdlKilccGFyDQpHRU5FUklDX1JFQUQqID0gU1lTVEVNLlZBTChJTlRFR0VS
LFx7MzFcfSk7ICgqZXhwcmVzc2lvbiBzaG91bGQgYmUgY29uc3RhbnQqKVxwYXINCkdFTkVSSUNf
UkVBRCogPSBcezMxXH0oSU5URUdFUik7ICgqICI7IiBtaXNzaW5nICopXHBhcg0KXHBhcg0KSG93
IGNhbiBJIGRlY2xhcmUgc3VjaCBhIGNvbnN0YW50P1xwYXINClxwYXINClRoYW5rIHlvdSxccGFy
DQpccGFyDQpXb2p0ZWsgU2t1bHNraSBza3Vsc2tpQHBhcy5yb2NoZXN0ZXIuZWR1XHBhcg0KXHBh
cg0KLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFy
DQpUbyB1bnN1YnNjcmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2tib3gtcmVx
dWVzdEBvYmVyb24uY2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBj
b21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBj
b250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFyDQpccGFy
DQpTZW5kIGFueSBwcm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBl
bWFpbCBsaXN0IHRvIHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jl
cm9uLmNoXHBhcg0KXHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBU
byBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBz
dWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIg
d2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBwb3N0aW5n
IGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpccGFyDQpi
KSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywg
Ynkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0
ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwg
b2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIGhv
bHlkYXl9fQAgdmFsaWQgZS1tYWk=


----boundary-LibPST-iamunique-181220705_-_---
Received on Tue Jun 04 2002 - 17:55:42 UTC