Omnis 64 bit ,run dll

KRIS GEERTS kjtgeerts at gmail.com
Thu Jun 11 08:20:48 EDT 2015


Hi,

I have searched for a way to overcome the fact that omnis 6.1.2 lost the ability to register a dll and run it .
I used it expecially for knowing the logon credentials (of windows) in omnis .

So .. I found a way with the registry …although I indeed think it is not so secure …

Here is what I came up with 

Do $extobjects.RegAdmin.$objects.RegAdmin.$newref() Returns lorRegistry
Do lorRegistry.$openkey(kRegAdminKeyCurrentUser,"Volatile Environment") Returns #F
Do lorRegistry.$getvalue("USERNAME") Returns L_Value
Do lorRegistry.$closekey() Returns #F

I now have the username into L_Value 

good enough for my internal use but I doubt if would be the case for all .

So I want to make a procedure that uses this on a 64 bit machine and the old one on a 32 bit .
Only , how do I tell when I’m running the 32 bit or the the 64bit version ?
Ther isn’t a sys(x) function for it ?

Any help appriciated 

Kris



More information about the omnisdev-en mailing list