Еще можно так
Код:
Name DataType Subtype Length
Folder Automation 'Microsoft Shell Controls And Automation'.Folder3
FolderItem Automation 'Microsoft Shell Controls And Automation'.FolderItem2
FolderItem := Folder.ParseName(fileName);
IF NOT ISCLEAR(FolderItem ) THEN
FolderItem.InvokeVerbEx('open');