try
// Выполняемый код ...
ecxept
   SendDebugMsgLastError('Ошибка в модуле Unit1 ...', GetLastError);
  // Вызываем вместо RaiseLastOSError;
 exit;
end;

{************************************************************************* *****}
{ Module MSGLog.pas v1.1  for MSGLoger.exe                                     }  
{ elsstrue - software  http://www.elsetrue.narod.ru/msgloger.htm               }
{******************************************************************************}

Unit MsgLog;

interface

Type

 DWORD   = LongWord;
 HWND    = type LongWord;
 UINT    = LongWord;
 WPARAM  = Longint;
 LPARAM  = Longint;
 LRESULT = Longint;

 { lParam of WM_COPYDATA message points to... }
 PCopyDataStruct = ^TCopyDataStruct;
 tagCOPYDATASTRUCT = packed record
   dwData: DWORD;
   cbData: DWORD;
   lpData: Pointer;
 end;
 TCopyDataStruct = tagCOPYDATASTRUCT;
 COPYDATASTRUCT  = tagCOPYDATASTRUCT;

const
 WndClass  = 'TMSGLoger';
 kernel32  = 'kernel32.dll';
 user32    = 'user32.dll';
 WM_USER      = $0400;
 WM_COPYDATA  = $004A;

function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall; external user32 name 'FindWindowA';
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; external user32 name 'SendMessageA';
function GetCurrentProcessId: DWORD; stdcall; external kernel32 name 'GetCurrentProcessId';
procedure OutputDebugString(lpOutputString: PChar); stdcall; external kernel32 name 'OutputDebugStringA';
function StrLen(const Str: PChar): Cardinal;
procedure SendDebugMsg(DebugMsg: String);

// SendDebugMsgWnd - функция для новой версии MSGLoger v. 1.0.1.12 и выше
// Реализована возможность посылать сообщения для разных окон,
// для этого в MSGLoger нужно в настройках изменить заголовок окна.
// нужное окно будет найдено по заголовку.....
procedure SendDebugMsgWnd(WndCaption: String; DebugMsg: String);

// В этих функциях добавлена возможность передовать не только
// текстовые соодщения, но и код ошибки GetLastError
// MSGloger по умолчанию не обрабатывает ошибки равные 0,
// если LastError не равняется 0, то

procedure SendDebugMsgLastError(DebugMsg: String; LastError: Integer);
procedure SendDebugMsgWndLastError(WndCaption, DebugMsg: String; LastError: Integer);

implementation

{----------------------- StrLen() From SysUtils -------------------------------}
function StrLen(const Str: PChar): Cardinal; assembler;
asm
       MOV     EDX,EDI
       MOV     EDI,EAX
       MOV     ECX,0FFFFFFFFH
       XOR     AL,AL
       REPNE   SCASB
       MOV     EAX,0FFFFFFFEH
       SUB     EAX,ECX
       MOV     EDI,EDX
end;

{---------------------------- SendDebugMsg ------------------------------------}
procedure SendDebugMsg(DebugMsg: String);
var
 WND      : HWND;
 CopyData : TCopyDataStruct;
begin
 OutputDebugString(PChar(DebugMsg));
 WND:=FindWindow(PChar(WndClass),Nil); //Find window on Class
 if WND <> 0 then begin
   With CopyData do begin
     dwData := 0;
     cbData := StrLen(PChar(DebugMsg));
     lpData := PChar(DebugMsg);
   end;
   SendMessage(WND,WM_COPYDATA,GetCurrentProcessId,Integer(@CopyData));
 end;
end;
{-------------------------- SendDebugMsgWnd -----------------------------------}
procedure SendDebugMsgWnd(WndCaption: String; DebugMsg: String);
var
 WND      : HWND;
 CopyData : TCopyDataStruct;
begin
 OutputDebugString(PChar(DebugMsg));
 WND:=FindWindow(Nil,PChar(WndCaption)); //Find window on Caption
 if WND <> 0 then begin
   With CopyData do begin
     dwData := 0;
     cbData := StrLen(PChar(DebugMsg));
     lpData := PChar(DebugMsg);
   end;
   SendMessage(WND,WM_COPYDATA,GetCurrentProcessId,Integer(@CopyData));
 end;
end;
{------------------------ SendDebugMsgLastError -------------------------------}
procedure SendDebugMsgLastError(DebugMsg: String; LastError: Integer);
var
 WND      : HWND;
 CopyData : TCopyDataStruct;
begin
 OutputDebugString(PChar(DebugMsg));
 WND:=FindWindow(PChar(WndClass),Nil); //Find window on Class
 if WND <> 0 then begin
   With CopyData do begin
     dwData := LastError;
     cbData := StrLen(PChar(DebugMsg));
     lpData := PChar(DebugMsg);
   end;
   SendMessage(WND,WM_COPYDATA,GetCurrentProcessId,Integer(@CopyData));
 end;
end;
{-------------------------- SendDebugMsgWndLastError --------------------------}
procedure SendDebugMsgWndLastError(WndCaption, DebugMsg: String; LastError: Integer);
var
 WND      : HWND;
 CopyData : TCopyDataStruct;
begin
 OutputDebugString(PChar(DebugMsg));
 WND:=FindWindow(Nil,PChar(WndCaption)); //Find window on Caption
 if WND <> 0 then begin
   With CopyData do begin
     dwData := LastError;
     cbData := StrLen(PChar(DebugMsg));
     lpData := PChar(DebugMsg);
   end;
   SendMessage(WND,WM_COPYDATA,GetCurrentProcessId,Integer(@CopyData));
 end;
end;

end.