D
Delphi7.net
Unregistered / Unconfirmed
GUEST, unregistred user!
<br>//以下的代码目的是想枚举出系统中所安装的所有代码页。<br>//只能显示出系统已安装的一种CodePage。<br>Function EnumSystemCodePagesProc(StrChar):Boolean; stdcall;<br>Function EnumSystemCodePagesProcCalcSize(StrChar):Boolean; stdcall;<br><br>implementation<br><br>Function EnumSystemCodePagesProcCalcSize(StrChar):Boolean;<br>begin<br> Inc(i,StrLen(Str)+1);<br> Result:=True;<br>end;<br><br>Function EnumSystemCodePagesProc(StrChar):Boolean;<br>var s:String;<br>begin<br> Inc(i,StrLen(Str));<br> StrCat(PC,Str);<br> Inc(i);<br> StrCat(PC,#13);<br> Result:=True;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var s:String;<br>begin<br> i:=0;<br> EnumSystemCodePages(@EnumSystemCodePagesProcCalcSize,CP_INSTALLED);<br> PC:=StrAlloc(i);<br> try<br> FillChar(PC^,i,0);<br> EnumSystemCodePages(@EnumSystemCodePagesProc,CP_INSTALLED);<br>//目的是想枚举出系统中所安装的所有代码页。<br> ListBox1.Items.Text:=PC;<br>//只能显示出系统已安装的一种CodePage。<br> finally<br> StrDispose(PC);<br> end;<br>end;<br>