• الإعلانات

    • فيصل الحربي

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

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

02/11/2004

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

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

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

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

0 عادي

عن 02/11/2004

  • الرتبة
    خبير دلفي

طرق الإتصال

  • ICQ 0
  1. افراغ سلة المحذوفات

    الله عليكم يا اهل الدلفي .... وصل العجز فيكم لأفراغ سلة المحذوفات برمجيآ ... :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;
  2. Any One wanna try

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

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

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

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

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

    السلام عليكم Zouhere Gerard الرابط لا يعمل ... تأكد منة .
  10. -------------------------------------------------------------------------------- - إسم الموقع : 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 -------------------------------------------------------------------------------- التعامل مع المواقع الصينية فية صعوبة في البداية .... وبعدها سيكون طبيعي والصينين لن تجد مثل مواقعهم فهي غنية بالمحتوى ... وكلة عندهم فول سورس ... :)
  11. التعامل مع الكاميرا

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

    السلام عليكم نسخ الملفات سهل ومرفق بروسيجر لأتمام ذالك .. علمآ انة يوجد اكثر من طريقة ... اما الأمتداد فقد حذفتة لك باستخدام : الــ 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; وبالتوفيق .
  13. ترجمة برنامج بدون وجود دلفي

    السلام عليكم نعم كما ذكر مشرفنا 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} وبالتوفيق .
  14. برنامج نفل ملفات..........

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

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