läuft Programm unter 32-Bit oder 64-Bit ab ?

[Uwe Raabe]

Zitat von Gerkey:

Gibt es eine Möglichkeit im Programm abzufragen, unter welcher Version es gerade abläuft ?

Gibt es: IsWow64Process

[Zacherl]

Zitat von Uwe Raabe:

Zitat von Gerkey:

Gibt es eine Möglichkeit im Programm abzufragen, unter welcher Version es gerade abläuft ?

Gibt es: IsWow64Process

Die API ist aber etwas tricky:

Zitat:

A pointer to a value that is set to TRUE if the process is running under WOW64. If the process is running under 32-bit Windows, the value is set to FALSE. If the process is a 64-bit application running under 64-bit Windows, the value is also set to FALSE.

Hier gibt es jetzt zwei Fälle, in denen die API "false" wird:

1. 32-Bit Windows -> Eigener Prozess ist zwingend auch 32-Bit
2. 64-Bit Prozess

Macht also keine sichere Aussage darüber, ob der eigene Prozess jetzt unter 32 oder 64-Bit läuft. Dafür müsste man entweder mit konditionalen Compilerdirektiven arbeiten, oder zur Laufzeit ermitteln, ob Windows selbst 32 oder 64 Bit ist.

[Uwe Raabe]

Zitat von Zacherl:

Hier gibt es jetzt zwei Fälle, in denen die API "false" wird:

1. 32-Bit Windows -> Eigener Prozess ist zwingend auch 32-Bit
2. 64-Bit Prozess

Die Originalfrage wird aber genau durch diesen Rückgabewert beantwortet, denn das Programm ist per Vorgabe 32-Bit. Zur Erinnerung:

Zitat von Gerkey:

Habe Programme in der 32-Bit Version erstellt, die nun auch unter 64-Bit ablaufen sollen, was aber Änderungen u.a. beim Umgang mit einer MSACCESS Datenbank erfordert.
Gibt es eine Möglichkeit im Programm abzufragen, unter welcher Version es gerade abläuft ?

[Zacherl]

Zitat von Uwe Raabe:

Die Originalfrage wird aber genau durch diesen Rückgabewert beantwortet, denn das Programm ist per Vorgabe 32-Bit.

Da habe ich die Frage scheinbar falsch verstanden. Ich ging davon aus, dass er sowohl für 32 als auch für 64 Bit kompilieren will.

[himitsu]

Es sagt ja auch "Ich laufe im 32 Bit-Subsystem eines 64 Bit-Windows", also muß es für True zwangsläufig auch ein 32 Bit-Programm sein.
WoW64 = Windows (32) on Windows 64

64 Bit-Programme laufen zwangsläufig in einem 64 Bit-Windows
und 32 Bit-Programme können damit abfragen, ob sie in einem 32 Bit-Windows ober im Subsystem eines 64 Bit-Windows laufen.

Delphi-Quellcode:

{$IF SizeOf(Pointer) = 4}
{$IFDEF CPUX86}
{$IFDEF WIN32}

{$IF SizeOf(Pointer) = 8}
{$IFDEF CPUX64}
{$IFDEF WIN64}

Spaßig wird es, wenn es mal ein 128 Bit-Windows gibt und 32 Bit-Windowse dann auch noch leben.

[Gerkey]

Mit der Bitte um Nachsicht für einen Noch-Anfänger : Wie setze ich denn "isWOW64Process" im Programm ein ?
Gibt's es irgendwo einen Beispiel-Code ?

Gerkey

[Uwe Raabe]

Zitat von Gerkey:

Gibt's es irgendwo einen Beispiel-Code ?

Delphi-Quellcode:

  
  function IsWOW64: BOOL;
  begin
    IsWow64Process(GetCurrentProcess, Result);
  end;

[Gerkey]

Meine Delphi - Kenntnisse und Fähigkeiten sind wohl schon wieder an ihre Grenzen gestoßen ! Wenn ich die Funktion "IsWOW64" in der angegebenen Form ins Programm übernehme, erhalte ich folgende Meldung: "Es gibt keine überladene Version von ‘IsWOW64Process‘, die man mit diesen Argumenten aufrufen kann !".
Gibt es denn irgendwo eine Dokumentation, die mir weiterhelfen kann, ohne dass ich Euch Experten mit offensichtlich banalen Fragen bemühen muss ?

Gerkey

[Uwe Raabe]

Ich habe jetzt gerade kein XE zur Hand, daher passt mein Code für Tokyo. Schau doch mal in der Windows.pas nach der Deklaration von IsWow64Process. Hier sieht das so aus:

Delphi-Quellcode:

function IsWow64Process(hProcess: THandle; Wow64Process: PBOOL): BOOL; overload; stdcall;
function IsWow64Process(hProcess: THandle; var Wow64Process: BOOL): BOOL; overload; stdcall;

Zeig doch mal die Deklaration bei dir.

Falls das zweite Overload noch nicht da ist, geht es eventuell auch so:

Delphi-Quellcode:

function IsWOW64: BOOL;
begin
  IsWow64Process(GetCurrentProcess, @Result);
end;