突破LoadStr 1024个字符的限制

最新推荐文章于 2022-07-17 11:57:01 发布

日总是我哥

最新推荐文章于 2022-07-17 11:57:01 发布

阅读量2k

点赞数

分类专栏：基础类文章标签： buffer integer module function string linux

本文链接：https://blog.youkuaiyun.com/CoolSlob/article/details/1109123

版权

基础类专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一个用于从资源中加载字符串的函数LoadStr。该函数通过枚举资源模块并调用FindStringResource来获取指定标识符的字符串资源。文章提供了针对Windows和Linux平台的具体实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(源自： http://community.youkuaiyun.com/expert/Topicview1.asp?id=4950441)

function LoadStr(Ident: Integer): string;
begin
Result := FindStringResource(Ident);
end;
->
function FindStringResource(Ident: Integer): string;
var
StrData: TStrData;
begin
StrData.Ident := Ident;
StrData.Str := '';
EnumResourceModules(EnumStringModules, @StrData);
Result := StrData.Str;
end;
->
function EnumStringModules(Instance: Longint; Data: Pointer): Boolean;
{$IFDEF MSWINDOWS}
var
Buffer: array [0..1023] of char;<------------------这里！！！尝试修改这个的大小看看:)
begin
with PStrData(Data)^ do
begin
    SetString(Str, Buffer,
      LoadString(Instance, Ident, Buffer, sizeof(Buffer)));
    Result := Str = '';
end;
end;
{$ENDIF}
{$IFDEF LINUX}
var
rs: TResStringRec;
Module: HModule;
begin
Module := Instance;
rs.Module := @Module;
with PStrData(Data)^ do
begin
    rs.Identifier := Ident;
    Str := LoadResString(@rs);
    Result := Str = '';
end;
end;
{$ENDIF}