paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 17:01:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Fix an error in TWin32WSOpenDialog.GetFileName caused by an earlier commit.

Browse Source
This commit is contained in:
JuhaManninen 2023-05-22 01:40:10 +03:00
parent ddfd3414de
commit a703d0c00f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -818,7 +818,7 @@ class function TWin32WSOpenDialog.GetFileName(ShellItem: IShellItem): String;
var
FilePath: LPWStr;
begin
if Succeeded(ShellItem.GetDisplayName(SIGDN(SIGDN_FILESYSPATH), FilePath)) then
if Succeeded(ShellItem.GetDisplayName(SIGDN(SIGDN_FILESYSPATH), LPWStr(@FilePath))) then
begin
Result := UTF16ToUTF8(FilePath);
CoTaskMemFree(FilePath);