Fórum Erro na execução de um código ??? #286085

blz galera,

Eu achei alguns códigos aqui no fórum que eu estava precisando, só que na hora de executalos causa erro, os códigos são para identificar se um certo programa está sendo executado:

Veja logo abaixo o código é o erro relato pelo Delphi:

[color=darkblue:3efc68ae58]var rId:array[0..999] of DWord; i,NumProc,NumMod:DWord;
HProc,HMod:THandle; sNome:String;
begin
SetLength(sNome, 256);
// Aqui vc pega os IDs dos processos em execução
EnumProcesses(@rId[0], 4000, NumProc);

// Aqui vc faz um for p/ pegar cada processo
for i := 0 to NumProc div 4 do
begin
// Aqui vc seleciona o processo
[b:3efc68ae58] HProc := OpenProcess(Process_Query_Information or Process_VM_Read, FALSE, rId[i]);[/b:3efc68ae58]
if HProc = 0 then
Continue;
// Aqui vc pega os módulos do processo
// Como vc só quer o nome do programa, então será sempre o primeiro
EnumProcessModules(HProc, @HMod, 4, NumMod);
// Aqui vc pega o nome do módulo; como é o primeiro, é o nome do programa
GetModuleBaseName(HProc, HMod, @sNome[1], 256);
Memo1.Lines.Add(sNome); // Coloque um TMemo no formulário
// Aqui vc libera o handle do processo selecionado
CloseHandle(HProc);
end;
end;[/color:3efc68ae58]

Erro relatado pelo Delphi:
[color=red:3efc68ae58]Acess violation at adress 004500E7 in module ´PROJECT1.EXE´. Read of adress 006A0000.[/color:3efc68ae58]

[b:3efc68ae58]A linha em negrito no código, é aonde o Delphi indica que está o erro.[/b:3efc68ae58]

[b:3efc68ae58]OBS.: Eu uso o Win98SE[/b:3efc68ae58]
[b:3efc68ae58]
Alguêm sabe como resolver isso??

Muito Obrigado...Aguardo resposta...[/b:3efc68ae58]