imadouzoun

// الحصول على اسم الـ cpu function CPUname: string; var Reg: TRegistry; begin CPUname := ''; Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then CPUname := Reg.ReadString…

أنا رح حاول ضيف الباقي على الأكواد الفاعلة والنادرة ... بس لاحظ : 1- أنا جديد على هالمنتدى ما بعرف قدّر فيما إذا كان الكود مكرر أو مش نادر أو فاعل .. 2- أنا حاولت سابقاً ولكن ظهرت لي رسالة مفادها أنني لا يمكننا إضافة أي شي إلى القسم الأخير .. على كل حال تكرم ع…

// هل أنا أعمل على virtual pc أم لا ؟؟؟ function running_inside_vpc: boolean; assembler; asm push ebp mov ecx, offset @@exception_handler mov ebp, esp push ebx push ecx push dword ptr fs:[0] mov dword ptr fs:[0], esp mov ebx, 0 // flag mov eax, 1 // VPC functi…

//الحصول على بعض المعلومات الخاصة بالــ cpu >>>> unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrm_main = class(TForm) img_info: TImage; procedure FormShow(Sender: TObject); privat…

romanof معنا .؟؟؟؟؟؟؟؟؟ شلونك معلم ؟؟؟ لا تواخذني إنت قلت لي أن أضع الكودات في قسم الكودات الفاعلة والنادرة و أنا لم أفعل ذلك .... على كل حال إنت بتعرف مصلحة المنتدى أكتر مني شوف أي الأماكن أنسب للكودات و ضعهم فيه , طبعاً من بعد إذنك ... والسلام .. عماد أوزون …

//إجعل الـ button يفعل فعل الـ Alt + Tab // الأمر فيه صعوبة نوعاً ما بسبب أنك عندما تنقر على الزر فإن تطبيقك سيمتلك التركيز بدلاً من التطبيق الذي كان سيملطه بضغط الـ Alt+ Tab وهذا حل للمشكلة ................ var Index: INTEGER; // Save description of all activ…

// إعرف نظام الملفات لسواقة محددة function GetHardDiskPartitionType(const DriveLetter: Char): string; // FAT // NTFS var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; PartitionType: array[0..32] of Char;…

// الحصول على قائمة بالبرمجيات المنصبة علة حاسبك الشخصي ............ uses Registry; procedure TForm1.Button1Click(Sender: TObject); const UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'; var Reg: TRegistry; SubKeys: TStringList; ListItem: T…

//إخفاء أيقونات سطح المكتب ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE); // Show the desktop icons: ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW); المبرمج عماد ........... B) B)

B) هل تقصدين النقر على اسم أحد أعمدة الــ DBgrid أم مادا ؟؟؟؟؟؟؟؟؟؟؟

// إضافة مستخدم إلى الـ Sql Server procedure TForm1.Button1Click(Sender: TObject); begin ADOCommand1.CommandText := 'Use DataBaseName'; ADOCommand1.Execute; ADOCommand1.CommandText := 'Exec SP_AddUser ' + QuotedStr ('Username'); ADOCommand1.Execute; end; //___…

// اختيار سجل عشوائي من بين مجموعة سجلات الطريقة 1 : procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; procedure TForm1.Button1Click(Sender: TObject); begin Table1.First; Table1.MoveBy(Random(Table1.RecordCount)); end; //_____________________…

// شغل و أطفئ الــ caps Lock من تطبيقك type TKeyType = (ktCapsLock, ktNumLock, ktScrollLock); procedure SetLedState(KeyCode: TKeyType; bOn: Boolean); var KBState: TKeyboardState; Code: Byte; begin case KeyCode of ktScrollLock: Code := VK_SCROLL; ktCapsLock: Co…

// شغل و أطفئ الــ caps Lock من تطبيقك type TKeyType = (ktCapsLock, ktNumLock, ktScrollLock); procedure SetLedState(KeyCode: TKeyType; bOn: Boolean); var KBState: TKeyboardState; Code: Byte; begin case KeyCode of ktScrollLock: Code := VK_SCROLL; ktCapsLock: Co…

// إعادة تشغيل تطبيقك من جديد procedure TForm1.Button1Click(Sender: TObject); var FullProgPath: PChar; begin FullProgPath := PChar(Application.ExeName); // ShowWindow(Form1.handle,SW_HIDE); WinExec(FullProgPath, SW_SHOW); Application.Terminate; // أو: Close; e…

// إخفاء الساعة من شريط المهام function ShowTrayClock(bValue: Boolean) : Boolean; var TrayWnd, TrayNWnd, ClockWnd: HWND; begin TrayWnd := FindWindow('Shell_TrayWnd', nil); TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil); ClockWnd := FindWindowEx(Tra…

// هل تريد أن تكون الأسطر الفردية بلون والزوجية بلون اّخر في الـ DBGrid //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ //source for main form : //... uses // ... Grids, DBGrids, db //... procedure artgrid (Sender: TObject; const Rect: T…

شكراً أخي طارق على الرد بس ً الـ procedure لم يرجع الـ Discription الخاص بكل حقل ............. أعطى الإجراء المدكور كل شيء ما عدا الوصف اللي كنت أريده على كل حال شكرا المجهود عماد............. B)

// امنع Alt + F4 للمستخدم procedure TForm1.FormCreate(Sender: TObject); begin // set your applications message handler to your new one Application.OnMessage := AppMessage; end; procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean); begin // let your…

// إضافة حقل رقم السطر للـ DBGrid {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1. استخدم خاصية الأعمدة للـ DBgird وأنشئ فيها عمود 2. غير اسم العمود فيها إلى تسلسل 3. استخدم الحدث و اكتب فيها الشيفرة التالية OnDrawColumncell ++++++++++…