24-03-2009, 09:45 AM
السلام عليكم
ان شاء الله يكون الحل
ان شاء الله يكون الحل
كود :
procedure TForm1.Button2Click(Sender: TObject);
var
forr, edi : THandle;
Tex: string;
i:integer;
begin
forr := FindWindow('Notepad',nil);
edi := FindWindowEx(forr,0,'Edit',nil);
if Edit1.Text='' then
ShowMessage('please enter the message u want to send')
else
text:=Edit1.Text;
for i:= 1 to Length(Text) do
begin SendMessage(edi, WM_CHAR,ord(text[i]), 0);
end;
end;
لا اله الا الله
عدد ما كان وعدد ما يكون وعدد الحركات والسكون
عدد ما كان وعدد ما يكون وعدد الحركات والسكون