Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
20. Mai 2006
Such mal dadrin ... irgendwo stehts :roll:
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
20. Mai 2006
aber dafür brauchst du dieses Fläg doch nicht :zwinker:
var
memory: TMemoryStatus;
begin
memory.dwLength := SizeOf(memory);
GlobalMemoryStatus(memory);
memtotal := Cardinal(memory.dwTotalPhys) / 1024 / 1024;
memavail := Cardinal(memory.dwAvailPhys) / 1024 / 1024;
memused := Cardinal(memory.dwMemoryLoad) / 1024 / 1024;
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
20. Mai 2006
Das sollte nicht geschehen, denn du kannst ja auch ein Pogramm, welches für <2 GB compiliert wurde auf einem System, mit weniger als 1 GB, laufen lassen ;)
Es kommen aber nicht alle Codes mit Pointern über 2GB klar ... du mußt also auch aufpassen, daß alle in deinem Programm (importierte Funktionen, geladene DLLs ...) auch dieses kann, wenn du diese Option aktivierst.
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
20. Mai 2006
Weil es sowas früher nicht gab und man Abwärtskompatibel sein will/muß :zwinker:
bei den 2 GB kann man z.B. ganz einfach prüfen, ob ein Pointer im "gültigen" Bereich ist
also nicht negativ und nicht nil.
// 2 Flags geprüft und fertsch
or &P, &P
js @Fehler
jz @Fehler