paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Win, Fix dropping last char of dll names.

Browse Source 
git-svn-id: trunk@62341 -
This commit is contained in:
martin 2019-12-08 00:18:12 +00:00
parent b34bc4a730
commit 42eb28852f
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpdebug/fpdbgwinclasses.pas
View File

@ -384,19 +384,17 @@ begin
// GetFinalPathNameByHandle is only available on Windows Vista / Server 2008
if assigned(_GetFinalPathNameByHandle) then begin
SetLength(u, MAX_PATH);
SetLength(u, MAX_PATH+1);
len := _GetFinalPathNameByHandle(AModuleHandle, @u[1], MAX_PATH, 0);
s:='';
if len > 0
then begin
SetLength(u, len - 1);
if (u<>'') and (u[length(u)]=#0) then
begin
// On some older Windows versions there's a bug in GetFinalPathNameByHandleW,
// which leads to a trailing #0.
Delete(u,length(u),1);
end;
// On some older Windows versions there's a bug in GetFinalPathNameByHandleW,
// which leads to a trailing #0.
if (u[len]=#0) then
dec(len);
SetLength(u, len);
s:=UTF8Encode(u);
end else begin
u := '';