Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: OS Version ermitteln

   
    by toms, 30. Nov 2010
  Funktion aus dem DF:
  
  function GetNativeSystemInfo(var SystemInfo: TSystemInfo): Boolean;
  type
  TGetNativeSystemInfo = procedure (var SystemInfo: TSystemInfo) stdcall;
  var
  LibraryHandle: HMODULE;
  _GetNativeSystemInfo: TGetNativeSystemInfo;
  begin
  Result := False;
• Forum: Win32/Win64 API (native code)

  AW: OS Version ermitteln

   
    by toms, 30. Nov 2010
  Hallo Michael
  
  1. Sehe ich es richtig: Wenn Architecture = AMD64 dann 64-bit, wenn Architecture = Intel dann 32-bit ?
  
  GetSystemInfo(si);
  if (osvi.dwMajorVersion >= 6) then
  begin
  if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) then
  Result := Result + ' 64-bit'
  else if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL) then