Как вывести список запущенных процессов на языке Delphi, Ruby?

  • Проще всего это сделать на PureBasic. http://files.mail.ru/XXFL1H

    Код.

    Procedure GetProcess(ListIcon)
    ExamineProcesses()
    While NextProcess()
    Name.s = GetProcessName()
    PID = GetProcessPID()
    If Name And PID
    FileName.s=GetProcessFileName(PID)
    AddGadgetItem(ListIcon,-1,Hex(PID) +Chr(10) + Name +Chr(10) + FileName)
    EndIf
    Wend
    EndProcedure

    If OpenWindow(0, 0, 0, 570, 240, "Список прцессов", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
    ListIconGadget(0, 10, 10, 550, 220, "Адрес/PID", 80, #PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
    AddGadgetColumn(0,1,"Имя", 132)
    AddGadgetColumn(0,2,"Путь к файлу", 300)
    GetProcess(0)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    EndIf

    EXE создается вот так.

  • исходники для delphi:
    http://zetblog.ru/programming/200812/winapi-получить-список-запущенных-процесс/ ---этот компилировал, видит не все, что отображаются в диспетчере задач. (при компиляции замени " if hP > 0 then " на " if hP > 0 then")

    этот не компилировал еще:
    http://delphisources.at.ua/load/iskhodniki/sistema/spisok_zapushhennykh_processov/15-1-0-50

    а лучше пошарь список процессов на VB, --там отображает процессы даже те, каких нет в диспетчере задач.