Xác định quy trình kích thước ảo bằng delphi

Question

Tôi có chương trình Delphi và tôi đang tìm cách chương trình này có thể in "kích thước ảo" của riêng mình trong tệp nhật ký, để tôi có thể thấy khi nào nó sử dụng quá nhiều bộ nhớ. Làm thế nào tôi có thể xác định "kích thước ảo" bằng cách sử dụng mã Delphi?

Bởi "kích thước ảo", tôi có nghĩa là giá trị được hiển thị bởi Process Explorer. Giá trị này không thể được hiển thị bởi trình quản lý tác vụ thông thường. Nó không trực tiếp sử dụng bộ nhớ của chương trình nhưng việc sử dụng không gian địa chỉ. Trên Win32 một chương trình không thể sử dụng nhiều hơn 2 GB không gian địa chỉ.

PS: Tôi đang sử dụng Delphi 6 nhưng mã/thông tin cho các phiên bản khác cũng được chấp nhận.

Answer 1

Nhờ post này mang đến cho những gợi ý về cách để có được một kích thước ảo sử dụng C/C++, tôi đã có thể viết hàm Delphi sau:

Type 
    TMemoryStatusEx = packed record 
    dwLength: DWORD; 
    dwMemoryLoad: DWORD; 
    ullTotalPhys: Int64; 
    ullAvailPhys: Int64; 
    ullTotalPageFile: Int64; 
    ullAvailPageFile: Int64; 
    ullTotalVirtual: Int64; 
    ullAvailVirtual: Int64; 
    ullAvailExtendedVirtual: Int64; 
    end; 
    TGlobalMemoryStatusEx = function(var MSE: TMemoryStatusEx): LongBool; stdcall; 

function VirtualSizeUsage: Int64; 
var MSE: TMemoryStatusEx; 
    fnGlobalMemoryStatusEx: TGlobalMemoryStatusEx; 
begin 
    Result := 0; 
    @fnGlobalMemoryStatusEx := GetProcAddress(GetModuleHandle(kernel32), 'GlobalMemoryStatusEx'); 
    if Assigned(@fnGlobalMemoryStatusEx) then 
    begin 
    MSE.dwLength := SizeOf(MSE); 
    if fnGlobalMemoryStatusEx(MSE) then 
     Result := MSE.ullTotalVirtual-MSE.ullAvailVirtual; 
    end; 
end; 

Dường như với hoạt động tuyệt vời đối với tôi (Delphi 6 , Win XP). Có thể có giải pháp dễ dàng hơn bằng cách sử dụng GlobalMemoryStatus thay vì GlobalMemoryStatusEx nhưng nó sẽ không hoạt động chính xác trên các hệ thống có bộ nhớ hơn 2 GB.

Answer 2

Process Explorer seems để thực hiện việc này bằng cách gọi NtQueryInformation nhưng cũng có thể sử dụng dữ liệu hiệu suất, xem GetProcessVirtualBytes trong câu trả lời của tôi here.

Answer 3

Và đối với những người đã phụ thuộc vào cách khác tuyệt vời Jedi Code Library, bạn có thể tìm thấy định nghĩa mà @Name chính xác chỉ ra ở trên trong đơn vị JclWin32.

Số thực tế bạn cần cũng được chia nhỏ thành các hàm riêng lẻ trong đơn vị JclSysInfo. Chỉ cần gọi GetTotalVirtualMemory() - GetFreeVirtualMemory() để thực hiện phép tính.