簡繁體轉換

[naochen]

你好，請問各們高手，有什麼辦法成批的將繁體文件名轉換成簡體嗎？

[li_zhifu]

在2000下有一个转换工具，不过不能成批处理文件
还是自己做吧，有一个Readbook工具是带源码的，其中就有一个单元叫gb2big5.pas，可以做相互转换

[westfly]

procedure TForm1.Button1Click(Sender: TObject);
var S: array[0..255] of Char;
begin
//用这个函数实现繁转简, 详情可参阅msdn
LCMapString(0, LCMAP_SIMPLIFIED_CHINESE, PChar(Edit1.Text), Length(Edit1.Text), S, 255);
Edit2.Text := S;
end;

[Leobo]

<Delphi編程資源大全>裡有兩支簡繁轉換的源SOURCE,
一支是用資源文件,一支是直接在代碼裡加入轉換代碼的,代碼太長,不過COPY過來就是了.

[nongren]

lcmapstring只能在windows2000及以后的操作系统下用