瀏覽代碼

FIX: Increase maxlen parameter in ListGetDetectString function call (see listplugin.hlp)

Alexander Koblov 11 年之前
父節點
當前提交
2afe9c232c
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      src/uwlxmodule.pas

+ 4 - 2
src/uwlxmodule.pas

@@ -335,12 +335,14 @@ begin
 end;
 
 function TWlxModule.CallListGetDetectString: String;
+const
+  MAX_LEN = 2048; // See listplugin.hlp fo details
 begin
   //  DCDebug('GetDetectstr Entered');
   if Assigned(ListGetDetectString) then
   begin
-    SetLength(Result, MAX_PATH); Result[1] := #0;
-    ListGetDetectString(PAnsiChar(Result), MAX_PATH);
+    SetLength(Result, MAX_LEN); Result[1] := #0;
+    ListGetDetectString(PAnsiChar(Result), MAX_LEN);
     Result := PAnsiChar(Result);
   end
   else