Hallo Michael
1. Sehe ich es richtig: Wenn Architecture = AMD64 dann 64-bit, wenn Architecture = Intel dann 32-bit ?
Delphi-Quellcode:
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
Result := Result + ' 32-bit';
end;
end
2. LoadLibrary ... FreeLibrary (zudem lädst du zwei Mal den Kernel)
3. (Noch) nicht
Unicode tauglich.
Aufruf von GetVersionEx gibt Fehler 'The data area passed to a system call is too small'.