نصب زبان فارسي با اجراي برنامه

[رايان استار]

راهنمايي كنيد، يه برنامه با وي بي دارم مي خواهم كه قبل از اجراي آن رجيستري بررسي بشه كه آيا زبان فارسي نصب شده يا نه ؟ اگر نصب نبود زبان فارسي نصب بشه بعد برنامه اجرا بشه.

[lord_viper]

برای چک کردن فقط زبان فارسی میتونین این کارو بکنین

کد:

//چک کردن فارسی بودن systemlocale
const
LANG_FARSI = $0429;
if GetSystemDefaultLCID = LANG_FARSI then begin
    MessageBox(0, 'System locale default language = Farsi.', 'Information', MB_ICONINFORMATION);
    Exit;
  end;
//برای چک کردن فارسی بودن userlocale
if GetUserDefaultLCID = LANG_FARSI then begin
    MessageBox(0, 'User locale default language = Farsi.', 'Information', MB_ICONINFORMATION);
    Exit;
  end;

دارم یه dll برای چک و نصب کامل فارسی میسازم انشاالله هر وقت تموم شد میزارمش تو سابت

[sav68]

سلام آقا این dll رو کجا گذاشتی

راستی این کد ها رو برای vb.net هم میدی من استفاده کنم همین طور اون dll رو

[lord_viper]

http://forum.iranled.com/showthread.php?tid=9298

[sav68]

مرسی
پس توی دات نت هم کار میکنه دیگه

[lord_viper]

dll هیچ تفاوتی نمیکنه که با چه زبونی ازش استفاده میشه

[sav68]

سلام آقا lord_viper حالتون چطوره؟ انشا الله که همه چیز بر وفق مراد پیش میره

میگن سلام گرگ بی طمع نیست ...


میشه یه لطفی کنید و توابع زیر را کمی بیشتر توضیح بدین چون برای من قابل درک نیستند

1.function checkrighttoleft:boolean; stdcall;export;
برای چک کردن نصب بودن اسکریپت راست به چپ

2.function checkfarsisystem:boolean;stdcall;export;
برای چک کردن فارسی بودن سیستم

3.function checkfarsiuser:boolean;stdcall;export;
برای چک کردن فارسی بودن کاربر

6.procedure installfarsisystem;stdcall;export;
فارسی کردن بخش سیستم

7.procedure installfarsiuser;stdcall;export;
فارسی کردن بخش کاربری


شرمنده ها من این مفاهیم رو بلد نیستم دیگه

[sav68]

آقا دمت گرم پس چرا جواب نمیدی...

آقای لورد ویپر ..

چی شده؟

[lord_viper]

سلام
چند وقت نبودم دوباره برگشتم
function checkrighttoleft:boolean;
این تابع چک میکنه که ایا اسکریپت زبانهای راست به چپ نصب هست یا نه خروجی اون هم مقدار boolean هست که false یا true رو برمیگردونه

function checkfarsisystem:boolean;
چک کردن فارسی بودن سیستم

function checkfarsiuser:boolean
چک کردن نصب بودن کیبورد فارسی

procedure installfarsisystem;
این روال تنظیمات سیستم را بر روی فارسی تنظیم میکند

procedure installfarsiuser;
این روال کیبورد فارسی را اضافه میکند

موفق باشید

[sav68]

function checkfarsisystem:boolean;
چک کردن فارسی بودن سیستم

سلام خیلی ممنون که جواب دادین ولی این یک هنوز مجهوله (برای من)

با تشکر

[lord_viper]

این تابع چک میکنه که ایا ControlPanel/Regional&LanguageSetting/regional&languageOption/
سربرگ regional option و Standards&Formats ایا روی فارسی تنظیم هست یا نه چون برای نمایش فارسی این قسمت حتما باید روی فارسی تنظیم باشه
موفق باشید