Von Thomas Hölzer am 09 April, 1998 um 23:28:33:
Das beiliegende Progrämmchen bietet 2 Wege an, die in Profan 6 (32 Bit) offenkundig fehlerhafte Systemvariable %hinstance bis zum versprochenen Bugfix zu ersetzen.
Alle Werte in der Messagebox müßten gleich sein -
%hinstance zeigt aber leider immer 0 an.
MfG
THomas
DEF GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
DEF GetWindowLong(2) !"USER32","GetWindowLongA"
Proc TestHinstance
Declare t$
Let t$= "GetModuleHandle:",Str$(GetModuleHandle(0));"\n\n";\
"GetWindowLong: ",Str$(GetWindowLong(%hwnd, -6));"\n\n";\
"Profan %hinstance:",Str$(%hinstance)
MessageBox(t$,"Instanz-Handle unter Profan ermitteln",64)
EndProc
Cls
TestHinstance