M_Asize

كتاب عن تصميم التقارير في Rave5 الاسم Rave Visual Designer اللغة : أنكليزي الرابط http://www.nevrona.com/files/rave5.pdf

منقول عن الفريق العربي للتكنولوجيا إزالة DLL من الذاكرة function KillDll(aDllName: string): Boolean; var hDLL: THandle; aName: array[0..10] of char; FoundDLL: Boolean; begin StrPCopy(aName, aDllName); FoundDLL := False; repeat hDLL := GetModuleHandle(aName); i…

مرحبا الكتابة إلى عنوان الـForm زمن التنفيذ procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = #8 Then Caption := copy(Caption,1,Length(Caption)-1) else Caption := Caption + Key; Key := #0; end;

مرحبا أنا عضو جديد معكم ملئ ComboBox بالسواقات الموجودة لديك procedure TForm1.Button1Click(Sender: TObject); var Ch : Char; S : string; begin for Ch := 'A' to 'Z' do begin s := Ch + ':'; if (GetDriveType(PChar(s)) = 2)or(GetDriveType(PChar(s)) = 3) or(GetDrive…

عفوا أرقام أجنبية وأنا أريد كتابتها أرقام عربية

مرحبا أرجو أن تقبلوني عضو جديد لكتابة كسر في Word من إدراج- كائن -معادلات ولكن الكسر لايكتب معي إلا بأحرف أجنبية وأنا أريد كتابتها بأحرف عربية أرجو المساعدة