Declare Function unter 64Bit bzw. 32Bit

[RTausD]

Hallo allerseits,

ich habe das Problem, dass einige meiner Dateien auf 64 Bit-Systemen und 32 Bit-Systemen benutzt werden.

Wenn man dann für das Makro eine Funktion (Beispiel s.u.) deklarieren muss, produziert die Deklaration für 32 Bit unter 64 Bit und die Deklaration für 64 Bit unter 32 Bit eine Fehlermeldung, noch bevor das Makro eigentlich ausgeführt wird.

Code: Alles auswählen

'Windows 32Bit:
Declare Function GetSystemMetrics Lib "user32" (ByVal Index As Long) As Integer
'Windows 64Bit:
Declare Function PtrSafe GetSystemMetrics Lib "user32" (ByVal Index As Long) As Integer

Hat jemand eine Idee, wie man das lösen könnte?

VIELEN DANK im Voraus

Rolf

[Sulprobil]

Hallo,

Code: Alles auswählen

#If Win64 then

#Else

#End If

Viele Grüße,
Bernd