Aktionen unterbinden

[The-X]

du kannst dir den Titel der ausgewählten Datei merken bevor du umbenennst
und nachher den Index neu setzen...

Delphi-Quellcode:

RenameFile(current,new);
ShellList1.Itemindex:=S:=ShellList1.items.Indexof(ExtractFileName(new));