Cannot get GetCurrentHTMLPagePath to work

function DemoCallback(content) {
	alert("DemoCallback");
	alert(content);
} 
function clearFolders(oForm) {
	exeoutput.GetHEScriptCom('hescript://UserMain.GetHTMLPath',DemoCallback); 
}

function GetHTMLPath: String;  
Begin      
   MessageBox("Start GetHTML Path","Test",MB_OK); 
   Result := GetCurrentHTMLPagePath(); 
   MessageBox(Result, "path", MB_OK);

const currentUrl = window.location.href;