كيف أجعل برنامجي يضيف اللغة العربية تلقائيا

[sabre]

بسم الله الرحمن الرحيم
الصلاة السلام على رسول الله
كيف أجعل برنامجي يضيف اللغة العربية تلقائيا
عند تثبيته في أجهزة ذات نظام تشغيل أجنبي فرنسية أو غيره
هل هناك أستطيع أن أضيفها أم ماذا
وكيف ذلك
وأكون مضطر الى اضافة  اللغة العربية يدويا فهل من حل شكرا
هذا مثال بسيط وهناك مرفق من يطلع عليه يعطينا رأيه شكرا

كود :

procedure TForm3.FormCreate(Sender: TObject); begin     BiDiMode := bdRightToLeft;     Font.Charset := ARABIC_CHARSET;     Position := poScreenCenter;     button1.BiDiMode := bdRightToLeft;     button1.Font.Charset := ARABIC_CHARSET;     Panel1.BiDiMode := bdRightToLeft;     Panel1.Font.Charset := ARABIC_CHARSET;     GroupBox1.BiDiMode := bdRightToLeft;     GroupBox1.Font.Charset := ARABIC_CHARSET;     RadioGroup1.BiDiMode := bdRightToLeft;     RadioGroup1.Font.Charset := ARABIC_CHARSET;     RadioButton1.BiDiMode := bdRightToLeft;     RadioButton1.Font.Charset := ARABIC_CHARSET;     RadioButton2.BiDiMode := bdRightToLeft;     RadioButton2.Font.Charset := ARABIC_CHARSET;     CheckBox1.BiDiMode := bdRightToLeft;     CheckBox1.Font.Charset := ARABIC_CHARSET;     CheckBox2.BiDiMode := bdRightToLeft;     CheckBox2.Font.Charset := ARABIC_CHARSET;     Memo1.BiDiMode := bdRightToLeft;     Memo1.Font.Charset := ARABIC_CHARSET;     edit1.BiDiMode := bdRightToLeft;     edit1.Font.Charset := ARABIC_CHARSET;     label1.BiDiMode := bdRightToLeft;     label1.Font.Charset := ARABIC_CHARSET;     BitBtn1.BiDiMode := bdRightToLeft;     BitBtn1.Font.Charset := ARABIC_CHARSET;     caption := 'النافذة الثانية';     button1.Caption := 'رجوع الى النافذة الرئيسية';     Panel1.Caption := 'هذا بانال';     GroupBox1.Caption := 'هذا قروب بوكس';     RadioGroup1.Caption := 'هذا راديو قروب';     RadioButton1.Caption := 'هذا راديو بوتو';     RadioButton2.Caption := 'هذا راديو بوتو2';     CheckBox1.Caption := 'هذا شاك بوكس1';     CheckBox2.Caption := 'هذا شاك بوكس2';     Memo1.Lines.Add('هذه سطور ميمو');     Memo1.Text := 'هذا ميمو';     edit1.Text := 'هذا اديت';     label1.Caption := 'هذه لابل';     RadioGroup1.Items.Strings[0] := 'هذا أول اتام';     RadioGroup1.Items.Strings[1] := 'هذا ثاني اتام';     RadioGroup1.Items.Strings[2] := 'هذا ثالث اتام';     BitBtn1.Caption := 'هذا بيت تيتن'; end;

[sabre]

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

كود :

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 في
لوحة التحكم غير اللغة العربية

[sabre]

استعمل دلفي 7 من بور لاند