überprüfen ob 64 oder 32 bit (gelöst)

[Bauer321]

Wie kann ich mit Lazarus überprüfen ob das Programm mit einem 64 oder 32 bit Betriebssystem nutzt?
(wenn Lazarus da keine möglichkeiten bietet würde ich mal http://msdn.microsoft.com/en-us/library/ms684139(v=VS.85).aspx ausprobieren)

habe da jetzt folgendes gefunden:

Code: Alles auswählen

{Quelle: http://www.delphipraxis.net/118485-ermi ... ystem.html
         24.08.11 18 Uhr}
function IsWindows64: Boolean;
type
  TIsWow64Process = function( // Type of IsWow64Process API fn
    Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
var
  IsWow64Result: Windows.BOOL; // Result from IsWow64Process
  IsWow64Process: TIsWow64Process; // IsWow64Process fn reference
begin
  // Try to load required function from kernel32
  IsWow64Process := Windows.GetProcAddress( // in dieser Zeile ist der Fehler!
    Windows.GetModuleHandle('kernel32'), 'IsWow64Process'
    );
  if Assigned(IsWow64Process) then
  begin
    // Function is implemented: call it
    if not IsWow64Process(
      Windows.GetCurrentProcess, IsWow64Result
    ) then
      raise SysUtils.Exception.Create('IsWindows64: bad process handle');
    // Return result of function
    Result := IsWow64Result;
  end
  else
    // Function not implemented: can't be running on Wow64
    Result := False;
end;

leider bekomme ich folgenden fehler den ich nicht lösen kann:

Code: Alles auswählen

ugetwinversion.pas(169,21) Error: Incompatible types: got "Pointer" expected "<procedure variable type of function(LongWord,var LongBool):LongBool;StdCall>"

[MAC]

Aus welchen Grund brauchst du das ?
Musst du das zur Laufzeit wissen , oder reichen auch Compilerschalter ?

In Welcher Zeile tritt der Fehler auf?

mögliche Lösung:
a) Achtung, Pointer sind bööse, und zwar weil man nicht was von welchem Typ ein Pointer ist, also wenn du dir sicher bist das dein Pointer von dem Typ "procedure variable type of function(LongWord,var LongBool):LongBool;StdCall" ist,
dann würde ich das folgedermaßen machen:

Code: Alles auswählen

//in den type Teil
type
   zukonvertierenin = procedure variable type of function(LongWord,var LongBool):LongBool;StdCall;
 
//im Programm
zukonvertierenin(DeinPointerstehtHier)

Und Lazarus sieht den Pointer als funktion an.
Wenn das keine Seien sollte könntest du nen bösen Error bekommen

[carli]

Code: Alles auswählen

{$ifdef CPU64}

[Bauer321]

ja okay also was macht der schalter von dir(carli) jetzt genau? der führt doch einfach wenn 64 bit ist den code aus und sonst nicht oder? oder hängt das davon ab ob ich 64 bit oder 32 bit compiliere?

[Teekeks]

Der Schalter hängt davon ab wofür (also ob 64 oder 32 Bit) du Kompilierst.

[Bauer321]

hmm ne also das reicht mir nicht es soll eine 32bit version geben für alle das weniger arbeit außerdem benutzerfreundlicher. nur wäre um z.B. den Java Pfad zu analysieren eine 64/32 bit erkennung praktisch
hab oben nochmal nen comment bei der fehlerhaften zeile gemacht

[MAC]

die Zeile hätte ich vermutet, hast du denn mal

Code: Alles auswählen

IsWow64Process := TIsWow64Process(Windows.GetProcAddress( // in dieser Zeile ist der Fehler!
    Windows.GetModuleHandle('kernel32'), 'IsWow64Process'));

versucht ?

[Bauer321]

danke das geht

[GrosseAffe]

Danke, habe das auf dem Englischen Lazarus wiki gesetzt:
http://wiki.lazarus.freepascal.org/Multiplatform_Programming_Guide#Detecting_bitness_at_runtime