var
Wnd : hWnd;
Code : String;
begin
Wnd :=FindWindow('abc', Nil); // 根据窗体类名查找窗口句柄
if Wnd > 0 then // 如果找到则发送自定义的消息并退出
begin
Code :='我的程序'
SendMessage(Wnd ,WM_SETTEXT,0,LongInt(Code));
end;
Wnd : hWnd;
Code : String;
begin
Wnd :=FindWindow('abc', Nil); // 根据窗体类名查找窗口句柄
if Wnd > 0 then // 如果找到则发送自定义的消息并退出
begin
Code :='我的程序'
SendMessage(Wnd ,WM_SETTEXT,0,LongInt(Code));
end;
www.longteng.orgwww.longteng.org 挚软网络
我的OICQ:5008022
我的EMAIL:[email protected]
发邮件给我,可以不定期得到源程序
不全部是原创,但很多是针对解决问
题以后完全可以运行的源程序。