Pascal Scripting: PathNormalizeSlashes

Prototype:

function PathNormalizeSlashes(const S: String): String;

Description:

Returns specified string minus any superfluous slashes, and with any forward slashes converted to backslashes. Does not remove a double backslash at the beginning of the string, since that signifies a UNC path.