var
 Wnd : hWnd;  
 Code : String;
begin
 Wnd :=FindWindow('abc', Nil); // 根据窗体类名查找窗口句柄
 
 if Wnd > 0 then // 如果找到则发送自定义的消息并退出
 begin
         Code :='我的程序'
         SendMessage(Wnd ,WM_SETTEXT,0,LongInt(Code));
 end;