Forum: Win32/Win64 API (native code)
Delphi
by Ratte,
23. Mär 2004
procedure GetMemoryInfo(var total, available: LongInt);
var memory: TMemoryStatus;
begin
memory.dwLength:=SizeOf(memory);
GlobalMemoryStatus(memory);
total:=memory.dwTotalPhys;
available:=memory.dwavailPhys;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var insgesamt, verfuegbar: LongInt;
Forum: Win32/Win64 API (native code)
Delphi
by Ratte,
23. Mär 2004
Hi,
Fehler gefunden!!!!!!!! Vertippt!!! :wall: Trotzdem THX
Ratte
Forum: Win32/Win64 API (native code)
Delphi
by Ratte,
22. Mär 2004
Ja, da es funzt wenn ich das Fenster offen ist. :|
Forum: Win32/Win64 API (native code)
Delphi
by Ratte,
22. Mär 2004
procedure GetMemoryInfo(var total, available: LongInt);
var memory: TMemoryStatus;
begin
memory.dwLength:=SizeOf(memory);
GlobalMemoryStatus(memory);
total:=memory.dwTotalPhys;
available:=memory.dwavailPhys;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var insgesamt, verfuegbar: LongInt;
Forum: Win32/Win64 API (native code)
Delphi
by Ratte,
21. Mär 2004
Keine Ahnung, aber er löst nicht aus!!!!! :wall: :wall: :wall: :wall: :wall: :wall: :wall: