Mohammed

أخي الكريم ZaCker again السلام عليكم أولا فأنا لم أعر رد الأخ tmaaa أي اهتمام فهذا اسلوبه ثم أني لم أضع هذا الكود لأستعرض ولكن أحد الأصدقاء طلب من أن أعطيه كود لكتابة اسمه على سطح المكتب فاعطيته هذا الكود ثم رايت أن اضعه هنا لعلمي بتفاوت المستويات في البرمجة ب…

السلام عليكم ورحمة الله وبركاته فكرة اندماج المنتديات العربية الخاصة بعلم البرمجة جيدة وأنا من المؤيدين لهذه الفكرة ولكن يوجد منتدى مبرمجي فيجوال بيسك على موقع arabteam2000 اظنه كفاية وأرى استغلال الجهد الذي سيبذل في دمج وتطوير المنتديين في تطوير منتدى فيجوال …

هذا الكود يقوم باظهار خصائص ملف معين تخاره بواسط OpenDialog1 اي كم لو ضغطت على زر الفارة اليمين فوق ملف ثم اخترت خصائص . . uses ShellAPI; procedure InvokeFilePropDlgBox(hwnd: HWND; const F: string); var FileInfo: TShellExecuteInfo; begin with FileInfo do begin…

أخي الكريم نعم الخطأ له علاقة بقواعد البيانات ولكن تأكد من أن STDVCL32.DLL مسجلة. إذا تكرر الخطأ معك وانت في برنامجك تستخدام Interface Object وتقنية COM/DCOM فتأكد أيضا من تسجيل Type Liberary في الـ Client. بالتوفيق أخ أحمد

أخي إذا كنت تستخدم دلفي 4 فمشاكل ADO كثيرة معه ويجب أن تحمل تحديثات ADO.

إخواني هذا الكود البسيط يتيح لكم التعامل مع سطح المكتب procedure TForm1.Button1Click(Sender: TObject); var DTop: TCanvas; begin //Use TCanvas component to play with desktop DTop:=TCanvas.Create; DTop.Handle:=GetDC(Hwnd_Desktop); // My Screen resolution is 1152…

الأخ mortaja السلام عليكم ورحمة الله وبركاته: إذا كنت تريد مثلا عرض الشركات التي تبدأ بأول حرف كتبته: مثلا عند كتابة X تريد أن يظهر في combobox كل الشركات التي تبدأ بـ X اكتب الكود التالي: //Suppose you use a Text box to write the company you look for //in the…

أخي العزيز البحر إن لم تكن مشكلتك حلت ، فهل بالإمكان إرسال الكود لي وسأحاول حلها لك بأسرع وقت ممكن. مع تمنياتي لك بالتوفيق

هذا الكود البسيط يعمل على إخفاء/إظهار شريط المهام procedure HideUnhideTaskbar(Show: Boolean); var TaskBarWnd: HWND; begin TaskBarWnd:= FindWindow('Shell_Traywnd', nil); if Show then SetWindowPos(TaskbarWnd,0, 0, 0, 0, 0, SWP_HIDEWINDOW) else SetWindowPos(Taskb…

هذا البرنامج يقوم بعرض معلومات عن حجم الذاكرة الموجودة على جهازك سواءا العشوائية أو الافتراضية وأيضا معلومات عن حجم القرص الصلب أو أي وحدة أخرى وبعض المعلومات المتعلقة بوحدة التخزين التي تحددها في الثابت Dir private procedure GetHardDriveInfo; procedure GetMem…

أخ هاني مع ظهور دلفي 1 قال أحد الخبراء With Delphi sky is your limit

أخي elhag لو توضح ماذا تقصد بربط البرنامج على الشبكة ؟

أخ هاني جرب هذه الوصلة: http://community.borland.com/article/0,141...0,27603,00.html

أخي tmaaa لو حصلت أي كود أنت أو أي واحد من الإخوان علموني حتى لو بـ C/C++

شكرا أخ tmaaa شكرا جزيلا لك على الكود ، ولكك إذا عندك طريقة يكون الكود فيها كامل باسكال فهذا ما أريد تقبل تحياتي

إخواني: هذه الدالة تمكنك من تهيئة القرص المرن: عرف هذه الدالة كالتالي: function FormatFloppyDrive(hWnd : HWND; Drive : Word; fmtID : Word; Options : Word) : Longint stdcall; external 'Shell32.dll' name 'SHFormatDrive'; ثم ضع زر على الفورم وأضف هذا الإجراء: pro…

أخ هاني هناك كتاب جيد وهو: The Tome of Delphi: Algorithms and Data Structures أرجو ان تجد فيه ما تريد

أخي Madi إن شاء الله مشكلتك انتهت، لكن ضروري تضيف عليها AbortSystemShutdown() تمنياتي لك بالتوفيق

أخي Madi هذا الملف .pas أرجو أن ترسل لي برنامجك إذا بالإمكان حاولت أرسلك البرنامج كامل ولكن النظام لا يسمح إلا بـ1 بايت unit MAin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(…

الأخ Madi جرب وضع زر Button1 على الفورم ثم قم بنسخ الكود اللي كتبته انا وضعه داخل TForm1.Button1Click جرب لأنك قد تكون أخطأت في أحد المتغيرات. بالتوفيق ان شاء الله