سلام
کسی کدی داره که با اون بشه فارسی رو
روی کامپیوترر نصب کرد (وقتی ویندوز فارسی نیست)
ممنون
Printable View
سلام
کسی کدی داره که با اون بشه فارسی رو
روی کامپیوترر نصب کرد (وقتی ویندوز فارسی نیست)
ممنون
سلامنقل قول:
قبلا بحث شده است.
مهدي جان.
من يه سرچ كردم.. قبلا يك بحث در همين موضوع بود. ولي چون لينك دانلود داده بودن الان قابل دانلود نيست.
ولي از دوستان خواهش كردم كه دوباره فايل ويا سورس رو بزارن.
به هر حال اميدوارم به جوابت برسي.
فكر مي كنم اگر اين كد رو روي يكي از تابع هاي فرم بذاري خودش فارسي رو نصب كنه. البته توي ويندوز XP :
کد:application.BiDiKeyboard:='00000429';
سلامنقل قول:
يكي از راهها : (هنگام نصب زبان ممكن است به سي دي ويندوز نياز پيدا كنيد، پس هميشه قبل از شروع نصب ، اين مطلب را به اطلاع كاربر برسانيد )
قبل از نصب بايد ويندوز را از نظر NT بودن چك كنيد، در در پايان سيستم را restart كنيد.کد:var
strParam : TStringList;
sSysDir : String;
iLength : Integer;
strCmdLine : String;
begin
strParam := TStringList.Create;
strParam.Add('[RegionalSettings]');
strParam.Add('LanguageGroup="13"');
strParam.Add('SystemLocale="0429"');
strParam.Add('UserLocale="0429"');
strParam.Add('InputLocale="0409:00000409","0429:00000429"');
iLength := 255;
setLength(sSysDir, iLength);
iLength := GetSystemDirectory(PChar(sSysDir), iLength);
setLength(sSysDir, iLength);
sSysDir := IncludeTrailingPathDelimiter(sSysDir);
strParam.SaveToFile(sSysDir+'_CPFAParam.txt');
sSysDir := sSysDir + '_CPFAParam.txt';
strParam.Free;
strCmdLine := 'Rundll32 shell32,Control_RunDLL intl.cpl,,/f:"'+sSysDir+'"';
WinExec(PChar(strCmdLine), SW_SHOW);
DeleteFile(sSysDir);
application.ProcessMessages;
end;
سلامنقل قول:
اي كاش زندگي هم به همين راحتي بود!
ممنون نان فورس جان از نوشتن دوباره كد.
موفق باشيد.
سلام
من این رو برای یه برنامه می خواستم که
دیگه حالا دادم رفته
انشاء ا... برای نسخه دوم نرم افزار.
باز هم ممنون