• الإعلانات

    • فيصل الحربي

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

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

02/11/2004

الخبراء المعتمدون
  • عدد المشاركات

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

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

كل شيء نشر بواسطة 02/11/2004

  1. Office Assistant v3.26 The Office Assistant package contains two components with the purpose of adding animated characters and balloons like the Microsoft® Office applications to programs written in Delphi http://www.delphiarea.com/products/assistan .
  2. السلام عليكم امس ياخوان كنت في موقع اجنبي يقدم حلول للأتصال الصوتي VOIP المهم لديهم اكثر من منتج ... ومنتجاتهم ممتازة وتعمل مع اغلب لغات البرمجة بحكم انها activ x ومرفقين ديمو لجميع الــ SDK الموجود عندهم ولكل اللغات .. ما عدا الدلفي مطنشينة ... :) طبعآ انا زعلت وفي وقتها كتب رسالة من خلال موقعهم وذكرت فيها ان منتجاتهم اعجبتني لكن انا زعلان انة لا يوجد ديمو للدلفي وبعد اقل من ساعة جائني الرد من قسم الدعم لديهم يشكروني فية على ملاحظتي وزيارتي ويعتذرون ان منتجهم تسبب في زعلي واخبروني ان طلبي ارسل لقسم البرمجة لديهم وفي القريب العاجل سوف يرسلون الأمثلة لي وفي ختام الرسالة كررو اعتذارهم وطلبو مني اي ذكر اي مميزات خاصة ارغب ان تكون في الديمو بصراحة لم ارى شركة بهذا المستوى من قبل ... :) و عند مقارنة مستوى دعم هذة الشركة مع الشركات العربية ... اجد فارق كبير لأ اعلم ان كان سيتلاشى ام يزداد ... ؟ و الله يوفق الجميع .
  3. افراغ سلة المحذوفات

    الله عليكم يا اهل الدلفي .... وصل العجز فيكم لأفراغ سلة المحذوفات برمجيآ ... :D طيب خذ هذا الكود لتأكد من السلة فارغة او لا قبل الخذف : uses  Activex, ShlObj, ComObj; function RecycleBinIsEmpty: Boolean; const  CLSID_IRecycleBin: TGUID = (D1: $645FF040; D2: $5081; D3: $101B;    D4: ($9F, $08, $00, $AA, $00, $2F, $95, $4E)); var  EnumIDList: IEnumIDList;  FileItemIDList: PItemIDList;  ItemCount: ULONG;  RecycleBin: IShellFolder; begin  CoInitialize(nil);  OleCheck(CoCreateInstance(CLSID_IRecycleBin, nil, CLSCTX_INPROC_SERVER or    CLSCTX_LOCAL_SERVER, IID_IShellFolder, RecycleBin));  RecycleBin.EnumObjects(0,    SHCONTF_FOLDERS or    SHCONTF_NONFOLDERS or    SHCONTF_INCLUDEHIDDEN,    EnumIDList);  Result := EnumIDList.Next(1, FileItemIDList, ItemCount) <> NOERROR;  CoUninitialize; end; وهذا لمعرفة عدد الملفات الموجودة في السلة وحجمها الكلي : type  PSHQueryRBInfo = ^TSHQueryRBInfo;  TSHQueryRBInfo = packed record    cbSize: DWORD;    // Size of the structure, in bytes.    // This member must be filled in prior to calling the function.    i64Size: Int64;    // Total size of all the objects in the specified Recycle Bin, in bytes.    i64NumItems: Int64;    // Total number of items in the specified Recycle Bin.  end; const  shell32 = 'shell32.dll'; function SHQueryRecycleBin(szRootPath: PChar; SHQueryRBInfo: PSHQueryRBInfo): HResult;  stdcall; external shell32 Name 'SHQueryRecycleBinA'; function GetDllVersion(FileName: string): Integer; var  InfoSize, Wnd: DWORD;  VerBuf: Pointer;  FI: PVSFixedFileInfo;  VerSize: DWORD; begin  Result   := 0;  InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);  if InfoSize <> 0 then  begin    GetMem(VerBuf, InfoSize);    try      if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then        if VerQueryValue(VerBuf, '\', Pointer(FI), VerSize) then          Result := FI.dwFileVersionMS;    finally      FreeMem(VerBuf);    end;  end; end; procedure TForm1.Button1Click(Sender: TObject); var  DllVersion: integer;  SHQueryRBInfo: TSHQueryRBInfo;  r: HResult; begin  DllVersion := GetDllVersion(PChar(shell32));  if DllVersion >= $00040048 then  begin    FillChar(SHQueryRBInfo, SizeOf(TSHQueryRBInfo), #0);    SHQueryRBInfo.cbSize := SizeOf(TSHQueryRBInfo);    R := SHQueryRecycleBin(nil, @SHQueryRBInfo);    if r = s_OK then    begin      label1.Caption := Format('Size:%d Items:%d',        [SHQueryRBInfo.i64Size, SHQueryRBInfo.i64NumItems]);    end    else      label1.Caption := Format('Err:%x', [r]);  end; end;
  4. Any One wanna try

    هههههههههه لا تخاف ان ما اخالف ابد ... واعرف القوانين واحترمها ... :D الله يكون في عونك .... الأشراف مسئولية وعرووة ورطك معاة ... :lol: لكن لك الأجر ان شاء الله .
  5. Any One wanna try

    يا عم اي خبير ... :) انت ماعندك مشكلة مع الـــ setup ويعمل بشكل صحيح مشكلة الـــ setup انة ديموو فقط المشكلة في الأبلكيشن نفسة يطلب ملفات غير موجودة .... ولم يعمل معاي حتى انشئتها بنفسي ولم اعرف انة يطلب هذة الملفات users.dat و PhoneBox.dat و Del.dat الا بعد ان راجعت ملف الـــ uninstall ضع الملفات في نفس مجلد البرنامج واطلبها بالأسم فقط بدون المسار كامل .... وتستطيع ايضآ معرفة مسار البرنامج بكل سهولة وصحيح ان مجلد الوندوز والسيستم موجود في كل الأجهزة ... لكن قد يختلف اسم مجلد الوندوز او القرص الموجود علية الا اذا كنت تستخدم كود لمعرفة المسار الخاص بمجلد الوندوز او السيستم ... مع اني اتوقع انك حددت المسار مسبقآ بهذا الشكل : C:\WINDOWS وتأكد من مسئلة التشغيل الأول ... بأن ينشئ الملفات اول مرة اذا لم ترغب في اضافتها مع ملفات البرنامج وعندي احساس اخوي Zouhere Gerard انك راح تنتج حاجة حلوة .... والكتاب باين من عنوانة ... :) ولا تنسى ما وصاك علية اخونا romanof وهذا من صالحك ومن صالح باقي الأعضاء .
  6. هذا موقعهم : http://www.vaxvoip.com/
  7. ازالة المكتبات الغير لازمة

    السلام عليكم عادة مع الخبرة تعرف ما تحتاج وما يجب حذفة وللبرامج الكبيرة والأكواد المرعبة .. :) هناك برامج تعمل لك تقرير كامل عن الكود فقط ابحث عن : code Analyzer او delphi source analyzer وان شاء الله النتائج ترضيك .
  8. Any One wanna try

    نزل معاي الان ... لكن البرنامج لا يعمل... وفية ملفات ناقصة يضهر لي المسج : file not found والسبب بعد ما فحصت ملف الـــ uninstall وجد ان البرنامج يحتاج هذة الملفات : users.dat و PhoneBox.dat و Del.dat ويجب ان تكون في مجلد الوندوز .... وهذا غلط والمبرج يجب ان يبتعد عن وضع اي ملف في مجلد الوندوز او السيستم الا في الضرورة القصوى ... واذا وضعت ملفات لا يجب ان تكتب المسار من عندك لأنة يتغير من جهاز او نظام الى اخر والمف PhoneBox.dat يوجد اساسآ في مجلد الوندوز وليس من حقك التعديل علية او حذفة عند حذف برنامجك عدل هذة المشاكل البسيطة وسيكون برنامجك ان اشاء الله من افضل البرامج في هذا المجال وبرنامج الــ Setup الذي تستخدمة غير مجاني ... ويوجد المجاني مثل inno و InstallShield وفي المنتدى اكثر من موضوع تكلم عنها . وبالتوفيق
  9. التعامل مع الكاميرا

    اها الأن فقط انتبهت لها ... {$R click.res} من ريسورس فايل كانت فاكرها مثل بيب MessageBeep
  10. Any One wanna try

    السلام عليكم Zouhere Gerard الرابط لا يعمل ... تأكد منة .
  11. -------------------------------------------------------------------------------- - إسم الموقع : delphifans - الوصف : موقع يحوي الكثير من ادوات دلفي واغلبها مع السورس - اللغة : صيني - رابط الموقع : http://www.delphifans.com/ - ملاحظات : - تمت إضافتة من قبل العضو : 02/11/2004 -------------------------------------------------------------------------------- - إسم الموقع : ddvip - الوصف : محرك بحث صيني ... وممتاز للبحث عن ادوات دلفي - اللغة : صيني - رابط الموقع : http://www.ddvip.net/search.asp - ملاحظات : - تمت إضافتة من قبل العضو : 02/11/2004 -------------------------------------------------------------------------------- - إسم الموقع : 0ZONES - الوصف : من المواقع الصينية الغنية بادوات دلفي - اللغة : صيني - رابط الموقع : http://soft.0zones.com/ - ملاحظات : - تمت إضافتة من قبل العضو : 02/11/2004 -------------------------------------------------------------------------------- - إسم الموقع : fixdown - الوصف : من المواقع الصينية الغنية بادوات دلفي - اللغة : صيني - رابط الموقع : http://www.fixdown.com/ - ملاحظات : - تمت إضافتة من قبل العضو : 02/11/2004 -------------------------------------------------------------------------------- التعامل مع المواقع الصينية فية صعوبة في البداية .... وبعدها سيكون طبيعي والصينين لن تجد مثل مواقعهم فهي غنية بالمحتوى ... وكلة عندهم فول سورس ... :)
  12. التعامل مع الكاميرا

    click click click click :D بصراحة يا عرووة اعجبتني مرة الكلك click click click PlaySound('click',hInstance,SND_RESOURCE OR SND_ASYNC); اول مرة اشوفها ... :D
  13. نسخ إسم ملف

    السلام عليكم نسخ الملفات سهل ومرفق بروسيجر لأتمام ذالك .. علمآ انة يوجد اكثر من طريقة ... اما الأمتداد فقد حذفتة لك باستخدام : الــ StringReplace SN := StringReplace(SN, '.txt', '', [rfReplaceAll]) procedure ListFileDir(Path: string; FileList: TStrings); var  SR: TSearchRec;  SN: String; begin  if FindFirst(Path + '*txt', faAnyFile, SR) = 0 then  begin    repeat      if (SR.Attr <> faDirectory) then      begin      SN := SR.Name;      SN := StringReplace(SN, '.txt', '', [rfReplaceAll]);        FileList.Add(SN);      end;    until FindNext(SR) <> 0;    FindClose(SR);  end; end; procedure TForm1.Button1Click(Sender: TObject); begin  ListFileDir('C:\WINDOWS\', Memo1.Lines); end; وبالتوفيق .
  14. ترجمة برنامج بدون وجود دلفي

    السلام عليكم نعم كما ذكر مشرفنا romanof يجب ان يكون المترجم موجود ... وليس شرط ان يكون الدلفي موجود يكفي ان تكتب الكود في نوت باد وتقوم بترجمتة بمترجم دلفي Dcc32.exe واستاذنا ikossan قد شرح هذا الكلام بالتفصيل في الموضع التالي : http://www.arabteam2000-forum.com/index.ph...topic=61999&hl= تحديدآ من المشاركة رقم 10 ولم افهم الهدف من جعل المستخدم يبني البروجكت من جديد ... لكن اذا القصد التعديل على الكود بعد انتاج البروجكت فهناك طرق اخرى ... القي نضرة هنا : http://www.remobjects.com/page.asp?id={9A3...9-EEBBE7E302E6} وبالتوفيق .
  15. برنامج نفل ملفات..........

    السلام عليكم يا اخ Kharboush طلبك يحتاج تفرغ تام وشغل كثير جدآ ... وانت لم تحدد جزء معين كي نساعدك فية بالنسبة لنقل الملفات ابحث وستجد اكثر من طريقة لذالك ... واعتقد الأمثلة اللي مع الدلفي او الأندي فيها مثال لنقل الملفات و www.planet-source-code.com و www.delphi.about.com لن يخلو من شرح او امثلة عن نقل الملفات اما موضوع الفايروول فالمصادر قليلة بشأنة ولكن انضر الى هذا البرنامج : https://sourceforge.net/projects/winsockfirewall وهو فايروول من انتاج مبرمج كوري ... والبرنامج مفتوح المصدر واكثر من رائع ... لعلة ان شاء الله يفيدك وبالتوفيق .
  16. ما يزيد عن 70 دالة واجراء مفيدة

    السلام عليكم جزاك الله خير يا اخ mamdouhsab على هذا الجهد ... ولو طرحت الــ PAS فايل لكان افضل بكثير ولما احتجت ان تتعب نفسك بشرح كل فنكشن او بروسيجر ... والمصدر المفتوح يتيح للمبرمج حرية اكبر بالتعديل على الكود لما يناسب احتياجة ... والأكيد انك ما قصرت وما قدمت تشكر علية . ومرفق وحدة تحتوي على 60 فنكشن للتعامل مع الـــ Internet Explorer لعلها تفيدك في مشروعك وانصح من لا يعرفها بتجربتها . IE_tools.zip
  17. المتميز ... اتوقع انك كنت من جماعة الفيجول بيسك .. الله يرحم حالهم ... :lol: مع دلفي كل يوم راح تكتشف حاجة جديدة ومميزة ... :D الله يوفقك .
  18. التعامل مع الكاميرا

    السلام عليكم http://www.planet-source-code.com/vb/scrip...Id=584&lngWId=7 هذا رابط سورس برنامج صغير و جيد لما تريد ... قد تحتاج الى بعض التعديل علية جربة وان واجهك اي مشكلة لا تتردد في عرضها . و بالتوفيق
  19. RW-Disk

    السلام عليكم الكمبوننت اذا لم يكن بكج تسطيع تركية في البكج الرئسي dclusr الموجد في المجلد Lib فقط اضف الملفات لة واعمل كومبايل .... جربتة الان ... ممتاز وسهل الأستخدام يعطيك العافية يادلفي تيم وانظر الى هذا الرابط اذا كان لا يوجد عندك مشكلة بأن يكون النيرو موجود او الــ libraries الخاصة بة : http://sourceforge.net/projects/delphineroapi
  20. ShowMessage تظهر الرسالة انجليزي

    السلام عليكم بجانانب زر install الذي قال لك عنة عروة .. يوجد زر اضافة add اضغط علية واختر الملف uArman.dcu ثم Compile
  21. مثل ما قلت لك يا ابوماجد ... تنفع لعدة استخدامات حسب الأحتياج وهذا مثال لأستخدامها عند حبايبنا اصحاب الداتا بيس : http://delphi.about.com/library/weekly/aa022205a.htm والـــ GUID يستخدمها غالبآ مبرمجين الـــ COM وايضآ في برامج الأتصلات الكبيرة والتي يكون فيها اكثر من متصل في وقت احيانأ يتم اعطاء كل متصل GUID خاص يتم تمييز بعض العمليات بة واحيانآ تعطي عملية محددة Guid خاص .. وتشترط في فنكشن او بروسيجر شرط مبني على الـــ Guid وشفت زمان برنامج عامل حماية بسيطة بالأعتماد على GUID لعدم تشغيل البرنامج اكثر من مرة المهم ان هذا الرمز الفريد تسطيع ان تستخدمة في اشياء كثيرة حسب احتياجك واتوقع الأخوان يعطوك شرح وافي عنة ... فقط انتظر
  22. السلام عليكم هذا هو الـــ GUID يا ابو ماجد : globally unique identifier = GUID وهو رقم او رمز فريد ... وتستطيع انتاجة في الرن تايم " Run Time " بالطريقة التي ذكرها اخونا M_Asize او اثناء التصميم بالضغط على : Ctrl+Shift+G وسوف يضهر لك الـــ GUID في الكود ايدتر ويفيد في استخدامات كثيرة حسب احتياجك ورأيت بعض برامج الأتصلات الشبكية تستفيد منة ... مع اني لم استخدمة سابقآ اكتب في الكود ايدتر : TGUID وضللها ثم اضغط F1 واقراء الشرح الخاص بة وبالتوفيق .
  23. مبروك للخبراء الجدد

    الله يبارك فيكم يا اخوان .... وان شاء الله نكون عند حسن ضنكم ... وعقبال ما نشوف الجميع خبراء ... : ) ومبروك للزملاء اللي تم ترقيتهم . والله يوفق الجميع
  24. طلب صغير

    اتوقع ردي السابق ... خلى الشباب ما ينزلون المثال ... :) شوف الموضوع هذا .. فية حاجات ان شاء الله تنفعك في مشكلتك : http://www.swissdelphicenter.ch/en/showcode.php?id=2307
  25. Delphi Certified Developer

    وبكل فخر 40% ... :)