Code: Select all
with MESettings(HInstance) do
begin
case ANiveau of
0 : begin
ListThreads := true;
ShowCpuRegisters := false;
ShowStackDump := false;
ShowDisAsm := false;
PluginEnabled['modules'] := false;
PluginEnabled['processes'] := false;
PluginEnabled['hardware'] := false;
end;
1 : begin
ListThreads := true;
ShowCpuRegisters := false;
ShowStackDump := false;
ShowDisAsm := false;
PluginEnabled['modules'] := true;
PluginEnabled['processes'] := false;
PluginEnabled['hardware'] := false;
end;
2 : begin
ListThreads := true;
ShowCpuRegisters := false;
ShowStackDump := false;
ShowDisAsm := false;
PluginEnabled['modules'] := true;
PluginEnabled['processes'] := true;
PluginEnabled['hardware'] := false;
end;
3 : begin
ListThreads := true;
ShowCpuRegisters := false;
ShowStackDump := false;
ShowDisAsm := false;
PluginEnabled['modules'] := true;
PluginEnabled['processes'] := true;
PluginEnabled['hardware'] := true;
end;
end;
end;
Thanks!