| |
|
|
Jac de Lad | |
|
|
|
Thomas Zielinski | Ich bekomm jedesmal die Antwort IsWin64 ist keine Zahl |
|
|
| XProfan X4; Win10 x64 Der Kuchen ist eine lüge! | 27.12.2008 ▲ |
|
|
|
|
Jac de Lad | KompilierenMarkierenSeparieren
Proc IsWin64
declare d&,h&,r%
d&=UseDLL($SysPath+ \Kernel32.dll)
h&=External( kernel32,GetProcAddress,d& ,IsWow64Process)
if h&0
External(kernel32,Is Wow64Process,External(kernel 32,GetCurrentProcess),Addr( r%))
endif
FreeDLL d&
Return r%
endproc
cls
Print IsWin64()
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 27.12.2008 ▲ | |
|
|
|
|
Thomas Zielinski | da kommt 0 raus. tschuldigung mein fehler. hatte was falsch gemacht |
|
|
| XProfan X4; Win10 x64 Der Kuchen ist eine lüge! | 27.12.2008 ▲ |
|
|
|
|
Jac de Lad | Jo, du hast die Klammer vergessen.
Funktion offiziell freigegeben! |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 27.12.2008 ▲ |
|
|
|
|
Paul Glatz | Ich bekomme unter 32-Bit Windows 0 zurück. |
|
|
| |
|
|
|
Jac de Lad | Danke Paul. |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 27.12.2008 ▲ |
|
|
|
|
RGH | Nachdem ich Jacs fehlerhaften Quelltext korrigiert hatte*, bekomme ich unter WinXP beim Aufruf die Fehlermeldung Funktion in DLL nicht vorhanden.
Saluto Roland
* 1. d&=UseDLL($SysPath+ \Kernel32.dll) Das Leerzeichen vor dem Doppel-Backslash macht Probleme 2. if h&0 kann so auch nicht funktionierten. Muss wohl heißen if h <> 0 |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 28.12.2008 ▲ |
|
|
|
|
Jac de Lad | @Roland: Hm, seltsam, bei mir ist der Quelltext ok. Da habe ich wohl beim Kopieren aus Versehen was gedrückt. Danke dir. |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 28.12.2008 ▲ |
|
|
|