28-12-2008, 02:38 PM
السلام عليكم من جديد...
الحمد لله بدأ التوصول الى شئ
... وانا الآن فراحان جداّ جداّ
الحمد لله حققت الآن اول هدف لي...
وتم برمجة برنامج يعمل المطلوب...
وستخدمت فيه هذا الكود...
والحمد لله ماشي الحال...
طبعا الأخواد تقريبا كوبي باست من موضوع الأخ...
لكن انا الآن تقريبا افهم ما معنيها...
وسيتم التعمق ان شاء الله تعلى ...
وأعدكم ان شاء الله انني سأعمل درس ...
يكون سهل ومفيد ان شاء الله... وخصوصا للمبتدئين... مثلي
لمن اراد السورس فليتفضل..
في المرفقات..
ويا حب ذا لو يقوم احد بتحميل البرنامج ويجربه...
حتى اعرف ان كان شغّال على جهازي فقد ام على كل الأجهزة...
بارك الله فيكم
الحمد لله بدأ التوصول الى شئ
... وانا الآن فراحان جداّ جداّPHP كود :
قلت في نفسي...
لو سهلت الطريقة على نفسي حتى اعرف اولا كيفية التعامل...
فقررت ان اعمل برنامج صغير...
في الفورم عندي label و button واحد...
عند الضغط على البتون سيتم عمل كوبي للاديد بوكس للآلة الحاسبة...
الحمد لله حققت الآن اول هدف لي...
وتم برمجة برنامج يعمل المطلوب...
وستخدمت فيه هذا الكود...
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
forr, edi : THandle;
Tex: string;
begin
forr := FindWindow('SciCalc',nil);
edi := FindWindowEx(forr,0,'Edit',nil);
SetLength(Tex,Max_Path);
SendMessage(edi,WM_GETTEXT,Max_Path,LongInt(@Tex[1]));
edit1.Text:=Tex;
end;
والحمد لله ماشي الحال...
طبعا الأخواد تقريبا كوبي باست من موضوع الأخ...
لكن انا الآن تقريبا افهم ما معنيها...
وسيتم التعمق ان شاء الله تعلى ...
وأعدكم ان شاء الله انني سأعمل درس ...
يكون سهل ومفيد ان شاء الله... وخصوصا للمبتدئين... مثلي

لمن اراد السورس فليتفضل..
في المرفقات..
ويا حب ذا لو يقوم احد بتحميل البرنامج ويجربه...
حتى اعرف ان كان شغّال على جهازي فقد ام على كل الأجهزة...
بارك الله فيكم

