XProfan

Deutsch

Jac
de
Lad

Ich glaub ich habs jetzt doch gefunden. Probiert mal bitte das jemand unter einem 32Bit-Windows aus:
Kompilieren Markieren Separieren

Proc IsWin64

    declare d&,h&,r%
    d&=UseDLL($SysPath+\Kernel32.dll)
    h&=External(kernel32,GetProcAddress,d&,IsWow64Process)

    if h&<>0

        External(kernel32,IsWow64Process,External(kernel32,GetCurrentProcess),Addr(r%))

    endif

    FreeDLL d&
    Return r%

endproc

Danke im Voraus.

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Zielinski

Ich bekomm jedesmal die Antwort IsWin64 ist keine Zahl

XProfan X4; Win10 x64
Der Kuchen ist eine lüge!

27.12.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jac
de
Lad

Kompilieren Markieren Separieren

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()
waitinput

Da auch?

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Paul
Glatz

Ich bekomme unter 32-Bit Windows 0 zurück.

27.12.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Nachdem ich Jacs fehlerhaften Quelltext korrigiert hatte*, bekomme ich unter WinXP beim Aufruf die Fehlermeldung Funktion in DLL nicht vorhanden.

Gruß
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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren