26-03-2009, 12:42 PM
السلام عليكم ,,
أعتذر عن التأخر الشديد في الرد !!
لكن لعلي ألحق بالأخوه الذين أحاوبوا وأضع إجابتي ,,
بالنسبة للكود الذي وضعت ( للحصول على النص في المفكره ) :
الإجابة بتغيير حرف الـ G إلى S
( GETTEXT >>> SETTEXT )
ولكن أعتقد هذا ليس حلا كاملا !! حيث لا يتم ارسال النص الموجود في الإيدت ,,
وبذلك يعدل الكود إلى الكود التالي :
بارك الله لكم وبارك فيكم
أعتذر عن التأخر الشديد في الرد !!
لكن لعلي ألحق بالأخوه الذين أحاوبوا وأضع إجابتي ,,
بالنسبة للكود الذي وضعت ( للحصول على النص في المفكره ) :
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
forr, edi : THandle;
Tex: string;
begin
forr := FindWindow('Notepad',nil);
edi := FindWindowEx(forr,0,'Edit',nil);
SetLength(Tex,Max_Path);
SendMessage(edi,WM_GETTEXT,Max_Path,LongInt(@Tex[1]));
edit1.Text:=Tex;
end;الإجابة بتغيير حرف الـ G إلى S
( GETTEXT >>> SETTEXT )
ولكن أعتقد هذا ليس حلا كاملا !! حيث لا يتم ارسال النص الموجود في الإيدت ,,
وبذلك يعدل الكود إلى الكود التالي :
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
forr, edi : THandle;
Tex: string;
begin
Tex := Edit1.Text ;
forr := FindWindow('Notepad',nil);
edi := FindWindowEx(forr,0,'Edit',nil);
SetLength(Tex,Max_Path);
SendMessage(edi,WM_SETTEXT,Max_Path,LongInt(@Tex[1]));
end;
شكوت إلى وكيع سوء حفظي ... فأرشدني إلى ترك المعاصي
وأخــبـرنـي بــأن الـعـلـم نـور ... ونـور الله لا يـهدى لـعـاصي
وأخــبـرنـي بــأن الـعـلـم نـور ... ونـور الله لا يـهدى لـعـاصي