%hinstance-Fehler revisited


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

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



Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]