He tenido oportunidad de probar esto en un Windows 7 64 bits y funciona. Lista las aplicaciones de 32 y 64 bits.
Código:
Procedure TFTask.ProcList(Lista: TlistBox);
begin
Lista.Clear;
FTask.FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FTask.FProcessEntry32.dwSize:=Sizeof(FTask.FProcessEntry32);
if Process32First(FTask.FSnapshotHandle,FTask.FProcessEntry32) then
begin
repeat
Lista.Items.Add(FTask.FProcessEntry32.szExeFile);
until integer(Process32Next(FTask.FSnapshotHandle,FTask.FProcessEntry32))=0;
end;
CloseHandle(FTask.FSnapshotHandle);
end;
Saludos.