|
|
| Тема |
 Дайте малко API-та за тая функция |
|
| Автор | Adjamia (Нерегистриран) | |
| Публикувано | 15.02.01 13:51 |
|
|
|
Направо на въпроса:
procedure TMainForm.FormCreate(Sender: TObject);
begin
if ShteIzlezeNaIaponski then
begin
MessageDlg('Application can not be run, because cyrilic charset not suproted/instaled. ',mtError,[mbOk],0);
Aplication.Terminate;
end;
end;
function ShteIzlezeNaIaponski: boolean;
begin
Result := True;
.........................
........................
end;
Някой да има идея с какво да заместя многоточията? Нямам пред вид да ми напише функцията, а да ме насочи към апита, които да използувам за да гарантирам, че приложението ми ще тръгне на кирилица? Четох разни SDK-та, поду ми се главата, ама така и не успях да свържа нещата в обща картина. GetSystemDefaultLangID, GetUserDefaultLangID, GetSystemDefaultLCID,GetSystemDefaultLCID,GetThreadLocale, IsValidLocale,IsValidCodePage ...... и т.н. и т.н.......Нещо съществено сред тези?
| |
| |
| 
|
|
