نوشته شده توسط
atf1379
اساتید عزیز برای حل این مشکل نظری ندارند ؟
سلام
فایل اجرائی ضمیمه را در کنار برنامتون قرار بدهین و با استفاده از کد زیر آن را در رویداد Form_Load فرم استارت آپ برنامتون فراخوانی نمائید:
If Dir(Access.CurrentProject.Path & "\ChangeSystemlanguage.exe") <> "" Then
Shell Access.CurrentProject.Path & "\ChangeSystemlanguage.exe", vbNormalFocus
End If
فقط عنایت داشته باشین بلحاط عدم دسترسی به سیستم های دیگر بنده این نمونه رو فقط تحت ویندوز 10 تهیه و تست کرده ام .لذا چنانچه در سیستم های دیگر با مشکل اجرا مواجه شدین اطلاع بدهین که اصلاحش کنم.
ضمناً یادآوری میگردد که اگر زبان سیستم فارسی باشد نمونه فوق اجرا نخواهد شد
پاسخ با نقل قول
