32Bit Programme unter 64Bit

[AHT]

Mich würde mal interessieren, was sich unter 64-Bit alles so geändert hat.
1.) Wie greift man zum Beispiel dort von einem 32Bit Programm aus korrekt auf die Registry zu?
2.) Kann man den Prozessspeicher von 64Bit Prozessen von einem 32Bit Prozess aus noch korrekt auslesen?
3.) Wie ermittelt man korrekt, ob mein 32Bit Programm gerade unter 64Bit läuft oder unter 32Bit?
hier mein Vorschlag dazu:

 
'#########################################################################
'#########    Prozedur zum Erkennen einer 64-Bit Windowsversion  #########
'#########          erstellt für Paules PC-Forum von AHT         #########
'#########                                                       #########
'#########################################################################
Windowstyle 31
Windowtitle "64-Bit?"
Window 0,0-640,440
Print is64()
While 1
 Waitinput
endWhile
Proc is64
 Declare MODULE$, Funktion$, MHANDLE&, SYSTEM_INFO#, Ret$
 MODULE$="kernel32.DLL"
 Funktion$="GetNativeSystemInfo"
 MHANDLE&  = External("kernel32", "GetModuleHandleA", ADDR(Module$))
 Ret$ = "32-Bit Windows"
 IF External("kernel32", "GetProcAddress", MHANDLE&, ADDR(FUNKTION$)) <> 0
  DIM SYSTEM_INFO#, 36
  External("kernel32", "GetNativeSystemInfo", SYSTEM_INFO#)
  IF LONG(SYSTEM_INFO#, 4) = 9
   Ret$ = "64-Bit Windows"
  else
   Ret$ = "32-Bit Windows"
  endif
  Dispose SYSTEM_INFO#
 endif
 return ret$
endproc

4.)....

[Andreas Miethe]

3. oder so ?

Proc 32Or64
Var Bool& = 0
Var CPid& = External("Kernel32.dll","GetCurrentProcess")
External("Kernel32.dll","IsWow64Process",Cpid&,Addr(Bool&))
Return If(Bool& = 1,"64Bit","32Bit")
EndProc

Print 32Or64()
waitinput

[Frabbing]

Gibt einiges an Wow-Funktionen, die für 64 Bit zuständig sind.

[AHT]

Nicht nur. In der Registry ist ein extra Zugriffsrechtsflag dafür vorgesehen ($100).