Pascal Scripting: GetSHA1OfUnicodeString

Prototype:

function GetSHA1OfUnicodeString(const S: String): String;

Description:

Gets the SHA-1 hash of the specified string, as a string.

Causes an internal error if called by non Unicode Setup or Uninstall.