(200高分求解 ) 关于自动输入的问题,急急急(解决问题200相赠)
我要做一个后台程序,定时在当前光标所在的程序里面输入文本内容,当前光标所在位置可能是edit,comobobox,memo...等输入框,而且当前光标所在的程序可能是ie\或是别的程序里面的输入框,就是说只要我的程序运行在后台,当前光标所在的地方都会自动的输入文本信息,有办法吗
我原来的程序如下: 可是不大行
var
PHandle,childHandle : THandle;
begin
PHandle:=FindWindow(nil,'Form1');
if PHandle<>0 then
if isiconic(PHandle) then
ShowWindow(PHandle,sw_restore)
else
SetForegroundWindow(PHandle)
else
showmessage('no such window');
if PHandle<>0 then
begin
childHandle := FindWindowEx(PHandle,0,'edit','');
if childHandle <> 0 then
sendMessage(childhandle,WM_SETTEXT,0,longint(pchar('3345')));
end;
end;
我昨天问过一个同名的问题在之前问过,也是100分,可是回答的都未能解决问题如果谁能让我解决这个问题,马上给100,再请查找我昨天的这个问题,进去说句话,然后我再给100