![]() |
#3 |
Участник
|
Еще можно так
Код: 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'); |
|