Текст в чужое окно

[stlcrash]

Нужно отправить текст в чужое приложение.

1)Куда лучше отправлять в мемо или листбокс?
И как выглядит процедура ДОБАВЛЕНИЯ строки в мемо/листбокс.
Возможно ли это сделать с помощью sendmessage, зная его хендл

Хочу отловить ошибку из за которой моя программа зависает. Для этого в начале и конце каждой процедуры отправлять строку в мемо другой программы. ПОлучится такой простенький лог.

[TaLadno]

Сообщение от stlcrash

Хочу отловить ошибку из за которой моя программа зависает. Для этого в начале и конце каждой процедуры отправлять строку в мемо другой программы. ПОлучится такой простенький лог.

Вы еще кипятите? Тогда мы идём к вам - CodeSite

[IliaIT]

или как вариант создать процедуру.

procedure Save_log(Soob_oh:string);
var
  Ini_I_O:TextFile;

begin
  AssignFile(Ini_I_O,'log.txt');
  if FileExists('log.txt') then
  begin
    Append(Ini_I_O);
    WriteLn(Ini_I_O, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now)+' : '+Soob_oh);
  end
  else
  begin
    rewrite(Ini_I_O);
    WriteLn(Ini_I_O, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now)+' : '+Soob_oh);
  end;
  CloseFile(Ini_I_O);
end;

а ошибки ловить

  
  try
    куча строк для работы программы или функции или события....
  except
    on E : Exception do
    begin
      Save_log('ошибка процедуры бла-бла '+E.Message);
    end;
  end;

[stlcrash]

Сообщение от TaLadno

Вы еще кипятите? Тогда мы идём к вам - CodeSite

Действительно, забыл про него. Буду разбираться, спасибо.

PS В прошлый раз я думал его нужно отдельно покупать, а как оказалось он уже есть в самой студии

[stlcrash]

[dcc32 Fatal Error] Unit1.pas(7): F2613 Unit 'CodeSiteLogging' not found.

[stlcrash]

ЧТоб заработало прописал путь к библиотеке в настройках

C:\Program Files (x86)\Raize\CS5\Lib\RS-XE8\Win32

[stlcrash]

А как быть с процедурами которые находятся в таймере с интервалом в 50мс?
и функциями, которые выполняются в этом таймере по 1000раз?