Vista or Windows 7 新增 API for Delphi

yktd26 2009-06-22 10:24:14

由于一直没有找到Delphi 2007之后的破解版，不知道在他们的windows.pas 里面有没有对于vista之后新增的一些api的声明？
不知有没有哪位好心人能找到 EnumSystemLocalesEx，EnumLocalesProcEx和GetLocaleInfoEx三个function在delphi中的声明发给我？不胜感谢

...全文

132 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

slmax1 2009-06-23

打赏
举报

这似乎很难。/

yktd26 2009-06-23

打赏
举报

EnumLocalesProcEx就不用了使我弄错了，这是自定义的

yktd26 2009-06-23

打赏
举报

可能我没说明白我的意思
我现在用Delphi7 在7的Windows.pas里面没有EnumSystemLocalesEx等vista之后加入的新的api，所以如果哪位好心人有D2007或者之后版本
能不能摘抄他们对EnumSystemLocalesEx的声明和实现给我

yktd26 2009-06-23

打赏
举报

对，我只是举个例子
我需要的是EnumSystemLocalesEx因为不知道他是不是还是去找EnumSystemLocalesA 我看来应该不是了msdn上找不到

Seamour 2009-06-23

打赏
举报

用不着，写一起就完了
function EnumSystemLocales(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL
stdcall; external kernel32 name 'EnumSystemLocalesA';

yktd26 2009-06-23

打赏
举报

谢谢 starluck
不好意思是我没说清楚，还需要implementation部分，比如
{$EXTERNALSYM EnumSystemLocales}
function EnumSystemLocales(lpLocaleEnumProc: TFNLocaleEnumProc; dwFlags: DWORD): BOOL; stdcall;

implementation
function EnumSystemLocales; external kernel32 name 'EnumSystemLocalesA';

starluck 2009-06-23

打赏
举报







BOOL EnumSystemLocalesEx(

  LOCALE_ENUMPROCEX lpLocaleEnumProcEx, 

  DWORD dwFlags, 

  LPARAM lParam, 

  LPVOID lpReserved, 

);





BOOL CALLBACK EnumLocalesProcEx(

  LPWSTR lpLocaleString,

  DWORD dwFlags, 

  LPARAM lParam

);





int GetLocaleInfoEx (

  LPCWSTR lpLocaleName,      

  LCTYPE LCType,    

  LPWSTR lpLCData,  

  int cchData

);