سوئیچ بین en و fa

[Tarrah]

سلام
می خوام رو فرم دو تا دگمه بذارم با اسمهای fa و en . که دقیقا کار alt+shift رو انجام بدن . راه حل چیه ؟

[N_D]

از کدهای زیر استفاده کنید
ActivateKeyboardLayout($409,0) -- برای زبان انگلیسی
ActivateKeyboardLayout($429,0) -- برای زبان فارسی در محیط XP
ActivateKeyboardLayout($401,0) -- برای زبان فارسی در محیط win98 arabic

[babak869]

با سلام
میتونی ازین کامپوننت استفاده کنی که واقعا عالیه!!!!
موفق باشی

[Tarrah]

ممنون از راهنمائیتون.جناب N_D من نمی دونم کاربرم از چه ویندوزی استفاده می کنه.از کجا میشه تشخیص داد ؟

[javad_hosseiny]

function OperatingSystemDescription: String;
begin
if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) and (Win32MajorVersion = 4) then
begin
if (Win32MinorVersion = 90) and (Win32BuildNumber = 3000) then
Result := 'Windows Me'
else if (Win32MinorVersion = 1) and (Win32BuildNumber = 2222) then
Result := 'Windows 98 SE'
else if Win32MinorVersion = 0 then
Result := 'Windows 95 ' + Win32CSDVersion
else
Result := Format('Windows %d.%d (Build %d) %s', [Win32MajorVersion,
Win32MinorVersion, Win32BuildNumber, Win32CSDVersion]);
end
else if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
if (Win32MajorVersion = 5) and (Win32MinorVersion = 0) then
Result := Format('Windows 2000 (Build %d) %s', [Win32BuildNumber, Win32CSDVersion])
else if (Win32MajorVersion = 5) and (Win32MinorVersion = 1) then
Result := Format('Windows XP (Build %d) %s', [Win32BuildNumber, Win32CSDVersion])
else
Result := Format('Windows NT %d.%d (Build %d) %s', [Win32MajorVersion,
Win32MinorVersion, Win32BuildNumber, Win32CSDVersion]);
end
else
Result := Format('Windows %d.%d (Build %d) %s', [Win32MajorVersion,
Win32MinorVersion, Win32BuildNumber, Win32CSDVersion]);
end;

البته اگر جستجو می کردید مطمئنا به جواب می رسیدید موفق باشید
http://www.barnamenevis.org/forum/showthread.php?t=5025

[Touska]

بابا چرا اینقدر خودتونو اذیت می کنین :


Application.BiDiKeyboard := '00000429';
Application.BiDiKeyboard := '00000409';


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