此函数打开资源管理器,并选择指定的文件:
uses ShellAPI, ...;
procedure TForm1.ShowFile(const aFileName:String);
begin
ShellExecute(Handle, 'OPEN', PChar('explorer.exe'), PChar('/select, "' + aFileName + '"'), nil, SW_NORMAL)
end;
procedure TForm1.ShowFolder(const aPath:String);
begin
ShellExecute(Handle, 'OPEN', PChar('explorer.exe'), PChar('/root, "' + aPath + '"'), nil, SW_NORMAL)
end;
Run Code Online (Sandbox Code Playgroud)
或者这是你不想使用的"命令行"?
你需要SHOpenFolderAndSelectItems.这个问题在这里得到了早期的讨论 - 以
编程方式在资源管理器中选择文件
别忘了在第一次使用之前调用CoInitializeSHOpenFolderAndSelectItems