Registriert seit: 28. Apr 2008
1.717 Beiträge
FreePascal / Lazarus
|
Re: Umlaute im nicht deutschen Windows umwandeln?
10. Okt 2008, 18:02
Und ist dann die Abfrage richtig so?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Ident: Integer;
MyLang: PChar;
const
Size: Integer = 250;
begin
GetMem(MyLang, Size);
Ident:=GetSystemDefaultLangID;
VerLanguageName(Ident, MyLang, Size);
Label1.Caption:=StrPas(MyLang);
FreeMem(MyLang);
if Label1.Caption='Deutsch (Deutschland)' then
begin
nicht umwandeln...
end else umwandeln..;
end;
|