ShellApi 列举正在运行的程序

//列举正在运行的程序 
uses ShellApi;


{在interface下面type上面输入}
const MY_MESSAGE = WM_USER + 100;


procedure TForm1.Button1Click(Sender: TObject);
var
  hCurrentWindow:HWnd;
  szText: array[ 0 .. 254] of char;
begin
  hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
   while hCurrentWindow <> 0 do
   begin
     if GetWindowText(hCurrentWindow, @szText, 255) > 0 then
    Memo1.Lines.Add(StrPas(@szText));
    hCurrentWindow :=GetWindow(hCurrentWindow, GW_HWNDNEXT);
   end;
end;

通过 Wiz 发布