Объем памяти занимаемой програмой

Тема в разделе "WASM.BEGINNERS", создана пользователем ZiV, 5 фев 2006.

  1. ZiV

    ZiV New Member

    Публикаций:
    0
    Регистрация:
    5 фев 2006
    Сообщения:
    3
    Мне нужно узнать сколько приложение отвело под свои нужды памяти ну там под массивы или другие структуры...поскажите как плиз!!!

    Заранее спасибо..
     
  2. masquer

    masquer wasm.ru

    Публикаций:
    0
    Регистрация:
    13 сен 2002
    Сообщения:
    890
    Адрес:
    Николаев
    TaskManager
     
  3. Worm32

    Worm32 New Member

    Публикаций:
    0
    Регистрация:
    18 янв 2005
    Сообщения:
    33
    Адрес:
    Azerbaijan
  4. ZiV

    ZiV New Member

    Публикаций:
    0
    Регистрация:
    5 фев 2006
    Сообщения:
    3
    программно
     
  5. Hellspawn

    Hellspawn New Member

    Публикаций:
    0
    Регистрация:
    4 фев 2006
    Сообщения:
    310
    Адрес:
    Москва




    а на чём? =) на фортране? =))

    если на дельфи.. то млин где то была у меня

    ссылка на норм статью....







    ну... он очеь часто показывает неправду...

    так что ему тоже верить можно с трудом...
     
  6. ZiV

    ZiV New Member

    Публикаций:
    0
    Регистрация:
    5 фев 2006
    Сообщения:
    3
    Hellspawn

    На дельфе можно на асме...поищи плиз ну очень надо..
     
  7. Hellspawn

    Hellspawn New Member

    Публикаций:
    0
    Регистрация:
    4 фев 2006
    Сообщения:
    310
    Адрес:
    Москва
    вот что то нашёл:
    Код (Text):
    1.  
    2. // Works only on Windows NT systems (WinNT, Win2000, WinXP)
    3. uses psAPI;
    4.  
    5. procedure TForm1.Button1Click(Sender: TObject);
    6. var
    7.   pmc: PPROCESS_MEMORY_COUNTERS;
    8.   cb: Integer;
    9. begin
    10.   cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
    11.   GetMem(pmc, cb);
    12.   pmc^.cb := cb;
    13.   if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
    14.     Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes'
    15.   else
    16.     Label1.Caption := 'Unable to retrieve memory usage structure';
    17.  
    18.   FreeMem(pmc);
    19. end;  
    20.  


    и ещё:
    Код (Text):
    1.  
    2. var
    3.   M: TMemoryStatus;
    4. ...
    5.   GlobalMemoryStatus(M);
    6.   lblMem.Caption := FormatFloat('Physical memory: ,0 KBytes', M.dwTotalPhys / (256 * 4));
    7.  


    и тут ещё поищи:

    http://www.delphikingdom.com/table/search.asp