[xangiesaurx]

¿ Que hacen OptionRunLogProject() y SendRunLogProject() ?, ese par de funciones no pertenecen a Delphi o a la API de Windows.

Gracias por tu pronta respuesta, aquí esta el código

Código Delphi [-]
 procedure TTitleBoxMainWnd.SendRunLogObject(ObjState: TActionState; const ObjName: WideString);
var M: TLogMessageType;
begin
  if (not FAsRunLog) or (ObjName = EmptyStr) then
    Exit;

  case ObjState of
    asPlay: begin if not OptionEnabled(sfObjectStart) then Exit; M := ltPlay; end;
    asStop: begin if not OptionEnabled(sfObjectStop) then Exit; M := ltStop; end;
//    asPause: ; // Not used !!!
  else
    Exit;
  end;

  if FFirstLogSend then
    SendRunLogSetupData;

  SendRunLogEx(cmdStringCommand, ObjName, M);
end;