Delphi dicas

Função que retorna os processos abertos

Function EnumWindowsProc(Wnd : HWnd;Form : TForm1) : Boolean;   Export; {$ifdef Win32} StdCall; {$endif}

var

Buffer : Array[0..99] of char;

begin

        GetWindowText(Wnd,Buffer,100);

        if StrLen(Buffer) <> 0 then

        Form.ListBox1.Items.Add(StrPas(Buffer) + ' - ' + TimeToStr(NOW));

        Result := True;

end;



//para chamar essa função coloque no evento onClick de um Button, por exemplo

begin

        EnumWindows(@EnumWindowsProc,LongInt(Self));

end;

por : Lucas Moreira De Souza