delphi4arab منتديات دلفي للعرب

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

كود :
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;

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

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

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

sabre

sabre

sabre