I could use some help with creating a projecthook that will set the default path and set path to default folders.
I am currently using the following code but I cannot catch the directory the project is opened from. Variables come in empty.

DEFINE CLASS projectpath AS projecthook

	Height = 22
	Width = 23
	Name = "projectpath"

	PROCEDURE Destroy
		set default to "O:\"
		set path to
	ENDPROC

	PROCEDURE Init
		local lcDir,lcProjDir
		lcDir = allt(sys(5)+curdir())
		lcProjDir = allt(substr(curdir(),1,at('\',curdir(),2)-1))
		set default to &lcDir
		set path to "class,data,forms,icons,reports,help,prog,o:\"+lcProjDir+"\source\a blank oapp\class"
	ENDPROC
ENDDEFINE