Das geht mit jedem Befehl einfach zu bauen, habe ich auch schon mal beschrieben (hier). Man muß nur eine Variable mitlaufen lassen, die sich merkt, was gerade an ist. Oder aus.
var
Status: boolean;
procedure OnLoad;
begin
ExecuteCommand('SHOWSTATUS OFF');
Status := false;
end;
procedure OnExecuteCommand(Command: string);
begin
if Command = 'SHOWSTATUS ON/OFF' then
if Status then
ExecuteCommand('SHOWSTATUS OFF')
else
ExecuteCommand('SHOWSTATUS ON');
end;
begin
end.