function WideTextToShortCut(Text: WideString): TShortCut;

TntMenus

TNT-WARN TextToShortCut 

This function is *very* slow. Use sparingly. Return 0 if no VK code was found for the text