راهنمايي كنيد، يه برنامه با وي بي دارم مي خواهم كه قبل از اجراي آن رجيستري بررسي بشه كه آيا زبان فارسي نصب شده يا نه ؟ اگر نصب نبود زبان فارسي نصب بشه بعد برنامه اجرا بشه.
برای چک کردن فقط زبان فارسی میتونین این کارو بکنین
کد:
//چک کردن فارسی بودن 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 برای چک و نصب کامل فارسی میسازم انشاالله هر وقت تموم شد میزارمش تو سابت
سلام آقا این dll رو کجا گذاشتی
راستی این کد ها رو برای vb.net هم میدی من استفاده کنم همین طور اون dll رو
مرسی
پس توی دات نت هم کار میکنه دیگه
dll هیچ تفاوتی نمیکنه که با چه زبونی ازش استفاده میشه
سلام آقا 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;
فارسی کردن بخش کاربری
شرمنده ها من این مفاهیم رو بلد نیستم دیگه
آقا دمت گرم پس چرا جواب نمیدی...
آقای لورد ویپر ..
چی شده؟
سلام
چند وقت نبودم دوباره برگشتم
function checkrighttoleft:boolean;
این تابع چک میکنه که ایا اسکریپت زبانهای راست به چپ نصب هست یا نه خروجی اون هم مقدار boolean هست که false یا true رو برمیگردونه
function checkfarsisystem:boolean;
چک کردن فارسی بودن سیستم
function checkfarsiuser:boolean
چک کردن نصب بودن کیبورد فارسی
procedure installfarsisystem;
این روال تنظیمات سیستم را بر روی فارسی تنظیم میکند
procedure installfarsiuser;
این روال کیبورد فارسی را اضافه میکند
موفق باشید
نقل قول: function checkfarsisystem:boolean;
چک کردن فارسی بودن سیستم
سلام خیلی ممنون که جواب دادین ولی این یک هنوز مجهوله (برای من)
با تشکر
این تابع چک میکنه که ایا ControlPanel/Regional&LanguageSetting/regional&languageOption/
سربرگ regional option و Standards&Formats ایا روی فارسی تنظیم هست یا نه چون برای نمایش فارسی این قسمت حتما باید روی فارسی تنظیم باشه
موفق باشید