EnumSystemCodePages为什么会这样？(100分)

Delphi7.net · 2002-10-15

//以下的代码目的是想枚举出系统中所安装的所有代码页。 //只能显示出系统已安装的一种CodePage。 Function EnumSystemCodePagesProc(Str

Char):Boolean; stdcall; Function EnumSystemCodePagesProcCalcSize(Str

Char):Boolean; stdcall; implementation Function EnumSystemCodePagesProcCalcSize(Str

Char):Boolean; begin   Inc(i,StrLen(Str)+1);   Result:=True; end; Function EnumSystemCodePagesProc(Str

Char):Boolean; var s:String; begin   Inc(i,StrLen(Str));   StrCat(PC,Str);   Inc(i);   StrCat(PC,#13);   Result:=True; end; procedure TForm1.Button1Click(Sender: TObject); var s:String; begin   i:=0;   EnumSystemCodePages(@EnumSystemCodePagesProcCalcSize,CP_INSTALLED);   PC:=StrAlloc(i);   try     FillChar(PC^,i,0);     EnumSystemCodePages(@EnumSystemCodePagesProc,CP_INSTALLED); //目的是想枚举出系统中所安装的所有代码页。     ListBox1.Items.Text:=PC; //只能显示出系统已安装的一种CodePage。   finally     StrDispose(PC);   end; end;

aizb · 2002-10-15

根据MSDN上的说明你是做不出这个程序来了，不知是什么原因， 说回调函数的返回值是LongBool，在Delphi中把回调函数定义成Boolean或LongBool都不行。 必须定义成Integer; 请作如下修改： Function EnumSystemCodePagesProc(Str

Char):Integer; stdcall; Function EnumSystemCodePagesProcCalcSize(Str

Char):Integer; stdcall; implementation Function EnumSystemCodePagesProcCalcSize(Str

Char):Integer; begin   Inc(i,StrLen(Str)+1);   Result:=1; end; Function EnumSystemCodePagesProc(Str

Char):Integer; var s:String; begin   Inc(i,StrLen(Str));   StrCat(PC,Str);   Inc(i);   StrCat(PC,#13);   Result:=1; end;

jsxjd · 2002-10-16

确实只有一种， 1251 function EnumCodePagesProc(ps

char):BOOL;stdcall; begin   form1.memo1.Lines.Add (ps);   Result:=true; end; procedure TForm1.Button1Click(Sender: TObject); begin   IF EnumSystemCodePages(@EnumCodePagesProc,CP_INSTALLED)   then showmessage('Ok'); end; procedure TForm1.Button2Click(Sender: TObject); begin   if EnumSystemCodePages(@EnumCodePagesProc,CP_SUPPORTED)   then showmessage('Ok'); end;

Delphi7.net · 2002-10-16

多谢aizb！

EnumSystemCodePages为什么会这样？(100分)

Delphi7.net

Unregistered / Unconfirmed

aizb

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

Delphi7.net

Unregistered / Unconfirmed

Similar threads