Comparar listbox

[DouglasP 1]

Boa tarde,

preiso de ajuda

alguem saberia me informar como faço para comparar 2 listbox e informar pelo messagebox o nome do item

encontrado?

 

to usano o seguinte codigo que carrega no listbox1 o conteudo de um arquivo txt:

ListBox1.Items.LoadFromFile(GetCurrentDir()+'/Anti Hack List.txt');

 

e usano essa função:

 

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.ListBox2.Items.Add(StrPas(Buffer));

Result := True;

end;

 

(EnumWindows(@EnumWindowsProc,LongInt(Self));)

 

para listar o nome de todas janelas em execução no listbox 2,

agora preciso ver qual dos nomes do combobox 1 esta em execução no combobox2

e informar atraves do messagebox o nome.

 

 

grato.

[Chrnos 30]

O que você terá que fazer é usar um duplo laço de repetição ... o laço principal você usará para pegar os itens de um dos listbox e, para cada item selecionado, você faz um segundo laço de repetição para comparar ele com os itens do segundo combobox e, uma vez encontrando o registro, você pode fazer o que quiser... a questão é que se você tiver 30 itens em cada listbox, desta forma você vai poder exibir até 30 showmessages com o nome do processo... talvez o mais interessante fosse criar um array dentro do programa e jogar nele só os processos que estão rodando no listbox2 e ai montar uma procedure para montar um showmessage apenas com todos os processos ativos... ou usar algum componente visual (talvez outro listbox?) para exibir os processos ativos.

 

[]'s