من اين سوال را حدود يك ماه پيش گفتم ولي نه سوالم هست نه جواب..
منظورم اين است كه با كليك كاربر در آن اديت زبان تايپ فارسي يا انگليسي شده و كاربر نتواند آنرا تغيير دهد...
من اين سوال را حدود يك ماه پيش گفتم ولي نه سوالم هست نه جواب..
منظورم اين است كه با كليك كاربر در آن اديت زبان تايپ فارسي يا انگليسي شده و كاربر نتواند آنرا تغيير دهد...
محسن جان راهی که من میدونم اینه که بر اساس accii ها برنامتو بنویسی و روی رویداد on click ادیت باکس بنویسی که کاراکتر ها تنها میان کاراکتر های انگلیسی یا فارسی باشه این را هیه که به فکرم میرسه
سلام
با اين كار ميتونيد زبان را عوض كنيد . ولي بايد دائما چك كنيد كه كاربر زبان را عوض نكند
Procedure SwitchKeyBoard(LangID : String);
begin
LoadKeyboardLayout(PChar(LangID), KLF_ACTIVATE);
//00000429 FA
//00000409 EN
end;
سلام
ببخشید که اینجا پست دادم اما گفتم یه توضیح مختصر در مورد
کار نانفرس بگم. اگر باعث ناراحتی کسی نمیشه.
اول از همه این کدی هست که نانفرس داده بود. واسه تغییر زبان.
حالا یک تایمر میزاری و این رو برای on timer مینویسی .کد:Procedure SwitchKeyBoard(LangID : String);
begin
LoadKeyboardLayout(PChar(LangID), KLF_ACTIVATE);
//00000429 FA
//00000409 EN
end;
یا اگر دوست داشتی خلاصه تر بشه اینطوری .کد:SwitchKeyBoard(00000409);
روش دومی رو خودم امتحان نکردم. ممکنه کار نکنه. اما امتحانش ضرری نداره.کد:LoadKeyboardLayout(PChar(00000409), KLF_ACTIVATE);
در ضمن . در روش دوم دیگه به پروسیجر نیازی نیست.
موفق باشی . بای
نان فورس جان
راهي براي نصب فارسي هم سراغ داري؟
اين كدها اگه فارسي نصب نباشه عمل نميكنه.
كاري ميشه كرد ؟؟
سلامنقل قول:
نان فورس جان
راهي براي نصب فارسي هم سراغ داري؟
اين كدها اگه فارسي نصب نباشه عمل نميكنه.
كاري ميشه كرد ؟؟
خوب مي توني از سي دي ويندوز . كپي بگيري. و همراه برنامه ات بزاري.
وقتي اجرا شد .برنامه ات. فارسي رو هم نصب كنه. (بهترين راه) اگر كسي
راه حل ديگه اي بلده به ما هم بگه
سلامنقل قول:
راهي براي نصب فارسي هم سراغ داري؟
اين كدها اگه فارسي نصب نباشه عمل نميكنه.
كاري ميشه كرد ؟؟
من قبلا چنين برنامه اي نوشته بودم ولي اصلا كامل نبود ... ( توي سايت هم گذاشته بودم )
يه برنامه ديگه با سورس هست كه اين كار رو انجام مي ده ...
اين برنامه رو يكي از اعضاي سايت برنامه نويس نوشته ... ( Mohammad_Mnt )
اينم لينك دانلود : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
چند تا فايل نياز داره كه پيدا كردن اونها زياد آسون نيست ...
فايلها رو هم امشب آپلود مي كنم ...
حجم فايل بالا حدود 165 كيلوبات هستش و حجم فايلها هم كه فشرده كردم حدود 3.5 مگابايت ميشه ...
موفق باشي ...
سلامنقل قول:
نوشته شده توسط مرد مباح
شما ديگه چرا؟!!
قبلا در اين مورد بحث شده. چند تا هم صفحه از خود مايكروسافت معرفي كردم. از روي اون ميتونيد كد را دربياوريد.
ولي موقع نصب بايد سيدي ويندوز را هم توي درايو قرار دهيد (البته ميشه مثلا با FileMon فهميد كه چه فايلهايي را استفاده مي كند . بعد هم حتما بايد ويندوز Restart شود.
يكم فكر كنيد اگر به نتيجه نرسيديد كد را ميفرستم.
منم به هر حال آدمم و همه پستها يادم نميمونه.
يادم بود كه يك صحبت شده بود ولي درباره نصب فكر كردم توي يك فروم ديگه خونده بودم.
به هر حال ممنون.
اگه گير كردم حتما اطلاع ميدم. (البته اگه برسم كه بنويسمش)
سلامنقل قول:
منم به هر حال آدمم و همه پستها يادم نميمونه.
يادم بود كه يك صحبت شده بود ولي درباره نصب فكر كردم توي يك فروم ديگه خونده بودم.
به هر حال ممنون.
اگه گير كردم حتما اطلاع ميدم. (البته اگه برسم كه بنويسمش)
بابا من كه سورسش رو برات آپلود كردم !! ( ديگه مشكلت چيه ؟ )
اون سورس رو يه نگاه بنداز ...
مطمئن باش كامله و فكر كنم كه نياز به Restart کامپیوتر بعد از نصب هم نیست ... ( به احتمال 90 درصد !!! )
اگه می خوای ازش استفاده کنی بگو تا فایلها رو هم آپلود کنم ...
موفق باشی ...
سلام
با اجازه همه.
محمود جان سورس رو توي پست 7 با توضيحات گذاشته.
اما من هنوز تست نكردم. امتحان مي كنم. بهتون خبر ميدم.
فعلآ باي
ممنون رفيق.نقل قول:
نوشته شده توسط Mahmood_N
من خواستم كه جناب نان فورس هم جواب بگيرن و اينو هم بگم كه به هر حال هرقدر هم كه فعال باشي بازم ممكنه يك جاي كار يادت بره.
بازم ممنون محمود جان.