Получение списка запущенных приложений Опции

[#$# PaVeL #$#]

Как получить список запущенных приложений?
В DRKB способ не стабильный....

[volvo]

Так... Значит, пока есть время - я тут кое-что нашел, должно тоже давать список запущенных приложений:

function EnumWindowsProc(wnd:HWND; lParam: LPARAM):BOOL; stdcall;
var
 wn:array[0..MAX_PATH-1] of char;
begin
 result:=true;
 if IsWindowVisible(wnd) and (GetParent(wnd)=0) and (GetWindow(wnd,GW_OWNER)=0) and
 ((GetWindowLong(wnd,GWL_EXSTYLE) and WS_EX_TOOLWINDOW)=0)  then
 begin
  GetWindowText(wnd,wn,MAX_PATH);
  Form1.Memo1.Lines.Add('"'+string(wn)+'"');
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
 EnumWindows(@EnumWindowsProc,0);
end;