مشكلة مع التعريب

أخي undertaker_2 يجب أن تستعمل Unicode والدوال التي تعتمدها.

لم افهم شيئا

تأكد من إعدادت اللغة في الجهاز الذي تحمل عليه البرنامج

start> ControlPanel > Region and Language

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

const
  Str_widechar: array[0..91] of byte=(
    $55 ,$00 ,$6E ,$00 ,$69 ,$00 ,$63 ,$00 ,$6F ,$00 ,$64 ,$00 ,$65 ,$00 ,
    $20 ,$00 ,$53 ,$00 ,$74 ,$00 ,$72 ,$00 ,$69 ,$00 ,$6E ,$00 ,$67 ,$00 ,
    $2F ,$00 ,$20 ,$00 ,$45 ,$06 ,$46 ,$06 ,$2A ,$06 ,$2F ,$06 ,$4A ,$06 ,
    $27 ,$06 ,$2A ,$06 ,$20 ,$00 ,$27 ,$06 ,$44 ,$06 ,$41 ,$06 ,$31 ,$06 ,
    $4A ,$06 ,$42 ,$06 ,$20 ,$00 ,$27 ,$06 ,$44 ,$06 ,$39 ,$06 ,$31 ,$06 ,
    $28 ,$06 ,$4A ,$06 ,$20 ,$00 ,$44 ,$06 ,$44 ,$06 ,$28 ,$06 ,$31 ,$06 ,
    $45 ,$06 ,$2C ,$06 ,$29 ,$06, $00,$00);

 pStr_widechar: PwideChar = @Str_widechar;

 Str_Title: array[0..55] of byte=(
    $45 ,$06 ,$46 ,$06 ,$2A ,$06 ,$2F ,$06 ,$49 ,$06 ,$20 ,$00 ,$45 ,$06 ,
    $28 ,$06 ,$31 ,$06 ,$45 ,$06 ,$2C ,$06 ,$4A ,$06 ,$20 ,$00 ,$42 ,$00 ,
    $6F ,$00 ,$72 ,$00 ,$6C ,$00 ,$61 ,$00 ,$6E ,$00 ,$64 ,$00 ,$20 ,$00 ,
    $44 ,$00 ,$65 ,$00 ,$6C ,$00 ,$70 ,$00 ,$68 ,$00 ,$69 ,$00, $00,$00);

 pStr_Title: PwideChar = @Str_Title;


begin
  MessageBoxW(0,pStr_widechar,pStr_Title,0);
  MessageBoxA(0,PAnsiChar(pStr_widechar),PAnsiChar(pStr_Title),0);
end.