• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

tmaaa

المشرفين القدامى
  • عدد المشاركات

    750
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 عادي

عن tmaaa

  • الرتبة
    خبير سي++ وخبير ديلفي و مشرف سابق

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • اهتمامات None computer related subjects

أحدث الزائرين لملفلك الشخصي

3,321 زياره للملف الشخصي
  1. السلام عليكم كيف حال الشباب؟ كما ذكر سابقاً لعمل ذلك لا بد من API Hook ليس للدالة DrawText وحدها بل لعدد كبير من الدوال الخاصة بـ Text Out ... للغات LTR سيكون الأمر أكثر سهولة , بينما لتلك من النوع RTL فالموضوع اكثر تعقيداً . كان بودي المشاركة في النقاش او المساعدة لكن لم أعد مبرمجاً و أترك المهمة للمبرمجين وربما أعود لهذه المواضيع في المستقبل . تحياتي للجميع Leaving CIONO1
  2. السلام عليكم طارق إبراهيم: اعتقد اني شرحت لك قصدي على المسنجر وأظن أن الأمور أصبحت واضحة . وكما قلت لك بعض الناس المدقق اللغوي عندهم حساس جداً و هو ما دفعهم لكتابة رد هنا . فيصل الحربي : حصل خير . إن شاء الله بقية الأخوة يكونوا فهموا قصدك . اما بالنسبة للشخص الذي قام بذلك العمل اكيد هو كتكوت صغير طائش . ان شاء الله سيأتي يوم ويكبر و يصبح اكثر عقلانية ... HGB : هيثم ما تزعل من كلامي , بس حبيت أني انبهك إلى أمور لا أتمنى حصولها على الانترنت فتكفينا أنها موجودة في حياتنا ... CIONO1
  3. كيف اتعامل مع serial port

    السلام عليكم goolg it first http://www.google.com/search?hl=en&q=delph...G=Google+Search هناك الكثير من الوصلات التي قد تفيدك http://www.delphi-central.com/serial.aspx المعذرة ليس لدي الوقت للتدقيق في تلك الوصلات و تجربتها . CIONO1
  4. السلام عليكم كما قال الأخ هيثم من ناحية تستفيد أنت ويستفيد الآخرون - هذا إن لم يكن لديك مانع- . أكتب عن المشروع بتفصيل اكثر و ستجد ان الكثيرين سيتنافسون للرد عليك أولهم HGB و jaas و chik وغيرهم ... الشئ الذي يمكن عمله عن طريق الايميل يمكن عمله هنا وبكفاءة أكثر . هنا الكثيرين بامكانهم المشاركة ولو حتى بالرأي ... CIONO1
  5. السلام عليكم عليك اضافة StrUtils في قسم uses . واذا كنت لن تستخدم strutils لأشياء اخرى ممكن تطبع الدالة posex كلها وهي function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer; var  I,X: Integer;  Len, LenSubStr: Integer; begin  if Offset = 1 then    Result := Pos(SubStr, S)  else  begin    I := Offset;    LenSubStr := Length(SubStr);    Len := Length(S) - LenSubStr + 1;    while I <= Len do    begin      if S[I] = SubStr[1] then      begin        X := 1;        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do          Inc(X);        if (X = LenSubStr) then        begin          Result := I;          exit;        end;      end;      Inc(I);    end;    Result := 0;  end; end; ORWA: if n>= 0 then في bug صغيرة , ربما التعود على كتابة =< بكثرة هو الذي جعلك تكتبها هنا ايضا :) الصحيح ان نكتب if n> 0 then CIONO1
  6. عمل sum

    السلام عليكم ما ذكره الأخ صحيح لتفادي ذلك استخدم try... except try  sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text);  edit3.text:=IntToStr(sum); except  ShowMessage('Enter a number please!'); end; CIONO1
  7. السلام عليكم IDA مشهور من زمان حتى في اصداراته القديمة . شخصيا استعمله منذ فتره . النسخة التي لدي الآن 4.17 :) . النسخة الحديثة لم استخدمها وتبدو ممتازة من شرح الأخ Jaas . أظن اننا سنجد حل لمشكله عدم مجانية البرنامج , انا ساتابع المواقع الصينية المهتمة بهذا الشئ .. هذا ما قاله Kris Kaspersky صاحب كتاب Hacker Disassembling Uncovered عن IDA pro طبعا الكلام عن الاصدارات القديمة A disassembler— IDAversion 3.7x (I recommend 3.8; 4.x is even better) jaas: It seems that you got more fun chance. Enjoy it تحياتي CIONO1
  8. السلام عليكم هاني : أحسنت في الرد . ما زلت أقول أنت شخص متميز عن بقية المبرمجين العرب الذي أعرفهم ولم أقل هذه العبارة رياء لكن تلك حقيقة .. الاخوة الكرام عندما يكون الكلام مبهم يؤدي لسوء فهم والأخ فيصل لم يوضح القصد و ايجاد الأعذار بالقول ان قصدة هكذا او كان يقصد ذلك لا فائدة إلا ان يوضح هو بنفسه القصد من الكلام السابق الذي كتبه . مشرفي المنتدى السابق أسماءهم تلمع في المنتدى , مواضيعهم ستظل مراجع للاجيال القادمة ولكل من يزور الفريق العربي . لا نريد إعادة المشاكل و فتح الملفات القديمة . أبهذه الطريقة للاستنتاج تكتب برامجك ؟ لا أظن كذلك . هذه المرة أخفقت :) لو في شخص وضع روابط لموقع أمريكي فالمخترق من أمريكا ؟ لا تفهموني خطأ . لم أقصد الرد على أشخاص بذاتهم لكن عند وضع رد في مواضيع حساسة يرجى الدقة في التعبير . ما سمعتم ان اسرائيل في احدى المرات قالت " نوافق على الانسحاب من اراض ... " لم تقل من الاراضي . التلاعب في الالفاظ وفي الكلام هام جداً , أيضا دقة الرد في مواضيع حساسة هام جداً ... شئ أخر اود التنبيه له , أعتقد أنه ليس للاعضاء هنا أي حقوق الملكية ولا يضمن أحد لهم ذلك حسب كلام أحد المدراء في احدى ردوده ... إن شاء الله ما في احد يزعل من ردي ... منتظر سيل الردود بكل سرور ( في اطار أدب النقاش) . مرحب بكل آراء معارضة .. تحياتي CIONO1
  9. السلام عليكم شخصياً لا أحب المدح لكن لكل مقام مقال ... أنت فعلا تطبق المقولة Art for art's sake عمل رائع فعلاً ! أتمنى أنك تحافظ على هذه الروح المعنوية التي أغبطك عليها . شكلك حتتضطرني ارجع أكتب مواضيع بعد ما ينتهي العمل الذي انا مشغول فيه لمدة شهر تقريبا ... أهم شئ أنك لا تستسلم ولا تيأس , سيأتي يوم بعد كم سنة وتجد أشخاص في مواقع عربية تكتب في مواضيع مشابهة و تشير الى مواضيع jaas كمرجع عربي . على فكره العنوانين الرنانة -ياحبذا بالانجليزية - لها تأثير في شد الجمهور ( لاتنسى هذه النقطه :D ) . Just keep on CIONO1
  10. مشكلة لوحة المفاتيح

    السلام عليكم الطرق المذكورة سابقا under windows ويبدو أنك تريدها under dos راجع الدوال المكتوبة في الوصلات الآتية فربما تفيدك : http://www.shedai.net/c/karisik/ledc.c http://www.ee.oulu.fi/research/tklab/cours...2004/ex2-sol1.c http://www.mit.edu/afs/sipb/project/sipb-a...cs/src/dosfns.c http://www.eunet.bg/simtel.net/msdos/keyboard.html عذراً فليس لدي TC++ لأجرب , لكن أظن انك ستجد الحل في تلك الوصلات أو ابحث عن غيرها في google انتظر ردود أخرى من الأخوة ... Best regards CIONO1
  11. السلام عليكم موضوع جيد وجزاك الله خيرا على الموضوعات التي تكتبها . لي تعليق متواضع أعتقد أنك نسيت -عن غير قصد - الإشارة لشئ هام , On NT Family OSs لابد أن تكون لديك الصلاحيات لذلك (SE_SHUTDOWN_NAME privilege) ... --- لدي رأي لا أعلم ان كنت توافقني عليه ام لا وهو : كل فتره نكتب عن دالة API بتعمق اكثر بحيث نحاول فهم عمل الدالة بعد عمل disassebmbling لمكتبات الـ dll التابعة للنظام ( Deep inside API ) . أو لنقم بعمل تشريح لبرنامج نرى انه مفيد لنعرف الطريقة التي يعمل بها البرنامج . سيقول البعض لا تعد اختراع العجلة مرة أخرى , ولست اريد ذلك لكن لمجرد التعلم وحب الاستطلاع فانا أومن بالمقولة Art for art's sake . أتذكر زمان كانت لدي فكره بعمل disassembling لملفات exe الموجودة في system32 لفهم طريقة عملها وكتابه برامج مشابهه لكن تكاسلت ... كم أتمنى أن أجد الوقت لأكتب عن مواضيع تطرق لها كتاب Inside Windows 2000 , أو أترجم مواضيع أكثر من رائعة أجدها في الصفحات الصينية !! Jaas : You may try to play with Native API , I think you will enjoy Best regards CIONO1
  12. السلام عليكم إقرأ هذا المقال ربما يفيدك .. http://www.developerfusion.com/show/4392 5 pages أو تابع النتائج هنا ربما تجد ضالتك : http://www.google.com/search?hl=zh-CN&q=%22c%23%22usb&lr= بامكانك تغيير الكلمة التي تبحث عنها لتجد نتائج أخرى ... حاول جعل google من الطرق الأولى لحل مشكلتك , ستستفيد الكثير ... CIONO1
  13. السلام عليكم jaas: لا أريد ان يتحول الموضوع إلى موضوع حوار لكن سأجيب على تساؤلاتك كآخر مشاركة في الموضوع كحوار (من ناحية علمية ربما أشارك بعد ما ينتهي العمل الذي سيدأ خلال الاسبوع المقبل ). ما زلت مختلف معاك قليلاً في هذه النقطه مع وجود شواذ . انا من مؤيدي نظرية اللا مائة في المائة ( الكمال لله وحده ). على العموم أتمنى التوفيق للجميع , فخلال الأربعين يوم القادمة سأكون مشغولاً ... أتمنى ألا يتحول الموضوع كحوار :) .. CIONO1
  14. بين الباسكال والدلفي

    السلام عليكم حياك لله , ضحكتني :D خلاص اعدك بردود بدون كفوف * اذا كنت تستعمل دلفي 7 , انسخ الملف crt_d7 الى المجلد Program Files\Borland\Delphi7\Lib موقع هذا المجلد يعتمد على المكان الذي عملت تثبيت للدلفي فيه .. * غير اسم الملف الى crt اذا كنت تستعمل نسخة دلفي 1-6 فاستعمل الملف الآخر crt.pas * افتح الدلفي . * انشئ console application , كيف؟!! ممم , اذا كنت لا تعلم فاقرأ الخطوات الآتية ( بدون كفوف ) : - في قائمة File ثم New ثم Other سيظهر New Items dialog في الصفحة New ستجد Console Application اختره ثم ok . - في قسم uses اضف crt - بين begin & end يمكن لك كتابة الكود الذي تريده فمثلا هذا مثال بسيط على الدوال الموجودة في crt program Project2; {$APPTYPE CONSOLE} uses  SysUtils,crt; var i:integer; begin  { TODO -oUser -cConsole Main : Insert code here }  for i:=0 to 15 do  begin  textcolor(i);  textbackground(i-1);  writeln('php4sa');  end; writeln('Press enter to exit');  readln; end. بالنسبة للدوال textcolor و textbackground فعليك قراءة معلومات عنها في ملف crtref.chm ... حظ موفق وأي تساؤلات أخرى على الرحب والسعة ... وإن شاء الله ما في كفوف :) CIONO1
  15. السلام عليكم هل ما تزال طالب جامعة؟ ان كان الجواب نعم , فانتبه بعد التخرج و بسبب الظروف المحيطة بك - خاصة أنك من الوطن التعيس كما سمعت :D - تفقد كل تلك الروح المعنوية , و إن كان الجواب لا , فأحيي فيك هذه الروح . أدعو الله لك بالتوفيق CIONO1