Source file: /~heha/BETA/matdde32.zip/SRC/T.PAS

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.