uses Windows; {$R t} var s,st: array[0..255] of Char; begin // GetClipboardFormatName(1,s,sizeof(s)); GetLocaleInfo(LOCALE_System_Default,LOCALE_sLanguage,s,sizeof(s)); LoadString(HInstance,1,st,sizeof(st)); MessageBox(0,s,st,0); end.
Vorgefundene Kodierung: UTF-8 | 0 |