ミ,,ﾟДﾟ彡DelフサギコのﾌｻﾌｻDelphi談話室②

　∩|
　ﾐﾞ''ﾞﾞﾞつ
　ﾐ∧,,∧　　　／￣￣￣￣￣￣￣￣
　ミ,,ﾟДﾟ彡＜　こうかもね。
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿

{
文字列を半角⇔全角変換などを行なう関数
　　　　　　LCMAP_FULLWIDTH : 半角　⇒　全角
　　　　　　LCMAP_HALFWIDTH : 全角　⇒　半角
　　　　　　LCMAP_HIRAGANA　: 全角カタカナ　⇒　ひらがな
　　　　　　LCMAP_KATAKANA　: ひらがな　⇒　全角カタカナ
　　　　　　LCMAP_LOWERCASE : 大文字　⇒　小文字
　　　　　　LCMAP_UPPERCASE : 小文字　⇒　大文字
}
function LCMapStringAPI(Value: String; dwMapFlags: DWORD): String;
var
　DestStr:PChar;
　DestSize:Integer;
begin
　Result := Value;
　DestSize :=
　　LCMapString(LOCALE_SYSTEM_DEFAULT, dwMapFlags,
　　　　　　　　PChar(Value),Length(Value),Nil,0);
　if DestSize = 0 then Exit;

　DestStr := AllocMem(DestSize+1);
　try
　　DestSize :=
　　　LCMapString(LOCALE_SYSTEM_DEFAULT, dwMapFlags,
　　　　　　　　　PChar(Value),Length(Value),DestStr,DestSize);
　　if DestSize = 0 then Exit;
　　Result := DestStr;
　finally
　　FreeMem(DestStr);
　end;
end;