دخول

sabre · 24-03-2017, 11:38 AM

سم الله الرحمن الرحيم
الصلاة السلام على رسول الله
كيف أجعل برنامجي يضيف اللغة العربية تلقائيا

كود :
program Project1;

uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

procedure GdiInitializeLanguagePack(LoadedShapingDLLs:integer); stdcall; external 'gdi32.dll' ;

//  procedure InitBKNEnableArabic();
//stdcall; external 'EnableArabic.dll';

{$R *.res}

begin
 GdiInitializeLanguagePack(0); // تعمل ولكن لا تقدم ولا تأخر
  //InitBKNEnableArabic();  // غير موجود dll ملف دي ال ال 

  Application.Initialize;
 // لا تعمل
 // SetThreadLocale(MAKELCID(MAKELANGID(LANG_GREEK,SUBLANG_DEFAULT),SORT_DEFAULT));
 // SetThreadLocale(1025); // هذه وجدتها في المنتدى هنا ولم تعمل
 // GetFormatSettings; // هذه وجدتها في المنتدى هنا ولم تعمل أيضا
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

كيف أجلب ملف دي ال ال هذا 'EnableArabic.dll
ومن أين وكيف

ولماذا لم تعمل هذه الدالتبن SetThreadLocale(1025 و GetFormatSettings
رغم اني طبقت ماهو مكتوب في الموضوع

وهذه الدالة لم تأخر ولم تقدم GdiInitializeLanguagePack
كوجودها كعدمه

ثانيا :

لغة برامج ليست unicode في
لوحة التحكم غير اللغة العربية

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة