delphi作文件管理器，出现以下问题，如何解决？ (10分)

Delphi 2.0高级程序设计指南第六章的例子：
如果open目录，却打开了Explorer，本来是打开下一层目录。
procefure TFMForm.Open1Click(Sender: Tobject);
begin
With FileList do
begin
if HasAttr(FileName,faDirectory) then
DirectoryOutline.Directory := FileName
else
ExecuteFile(FileName,' ' ,Directory,SW_SHOW);
end;
end;

都这么久了，应该没问题啊，我简单试了一下
ExecuteFile('C:/temp',' ' ,'C:/',SW_SHOW);
都是可以的。

附：
function ExecuteFile(const FileName, Params, DefaultDir: String;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,

StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

你也在做文件管理器？
有 Demo 吗？让我学习学习，我也在做一个文件管理器

接受答案了.