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

LCL: Improving SelectInFolder implementation on Windows

Browse Source
This commit is contained in:
n7800 2025-02-04 04:45:46 +05:00 committed by Juha Manninen
parent 4ce84e7af4
commit 90b91071fb
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/sysenvapis_win.inc
View File

@ -357,6 +357,13 @@ function SelectInFolder(AFullPath: String): Boolean;
begin begin
Result := FileExists(AFullPath) or DirectoryExists(AFullPath); Result := FileExists(AFullPath) or DirectoryExists(AFullPath);
if Result then if Result then
ExecuteProcess('explorer.exe', '/select,' + AFullPath); try
// quotes are required even in the absence of spaces
// the comma at the end "/select," is required
// do not check the return code
ExecuteProcess('explorer.exe', '/select,"' + AFullPath + '"');
except
Result := False;
end;
end; end;