رتبه موضوع:
  • 12 رای - 3.5 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
سورس کد بدست اوردن حافظه استفاده شده در سیستم عامل(دلفی)
#1
Gets the current application memory usage
نمونه کد : 

کد:
unit Unit1;

interface

uses
  Windows, Messages,psapi, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   function CurrentMemoryUsage: Cardinal;
var
  PMC: PsAPI.TProcessMemoryCounters; // receives info about process memory
begin
  Result := 0;  // default result on error or if not supported on OS
  PMC.cb := SizeOf(PMC);
  if PsAPI.GetProcessMemoryInfo(
    Windows.GetCurrentProcess, @PMC, SizeOf(PMC)
  ) then
    Result := PMC.WorkingSetSize;
end;
procedure TForm1.Button1Click(Sender: TObject);
//public by : parsicoders.com

begin
     showmessage('CurrentMemoryUsage: ' +IntToStr(CurrentMemoryUsage));
end;

end.
 
http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  رسم نمودار در اکسل از طریق دلفی Saeed7007 1 2,050 08-14-2014، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن اطلاعات هارد دیسک (دلفی) Amin_Mansouri 1 4,672 07-30-2014، 05:45 PM
آخرین ارسال: dehqan_mehdi
  ۳۵۰ سورس کد دلفی (دلفی رو از ابتدا تا حرفه ای شدن یاد بگیرید) Amin_Mansouri 11 18,401 01-31-2014، 04:27 PM
آخرین ارسال: Amin_Mansouri
  بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) Amin_Mansouri 2 6,461 08-23-2013، 10:06 PM
آخرین ارسال: mo_coders
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 2,325 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  دانلود سورس کد استفاده از نقشه گوگل در دلفی Amin_Mansouri 0 3,825 08-17-2013، 09:44 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 2,422 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri
  سورس کد بازی بیلیارد به زبان دلفی Amin_Mansouri 0 6,342 06-16-2013، 08:36 PM
آخرین ارسال: Amin_Mansouri
  تب سیستم در دلفی Amir AMS 0 2,362 06-11-2013، 08:21 PM
آخرین ارسال: Amir AMS
  نحوه نصب کامپوننت ها در دلفی Amin_Mansouri 2 6,761 05-25-2013، 11:40 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
<------> <____> <<<<----------------->>>> <<<<--->>>>>
This forum uses Lukasz Tkacz MyBB addons.