ExecFile

Hello
I it is necessary to open url file.
I do so:

Import "-lshell32"

Extern
	Function ShellExecute:Int(hwnd:Int,operation:Byte Ptr,file:Byte Ptr,parameters:Byte Ptr,directory:Byte Ptr,showcmd:Int) = "ShellExecuteA@24"
End Extern

Function ExecFile:Int(file:String,params:String="",defaultdir:String="")
	Print  ShellExecute(0,"OPEN",file.ToCString(),params.ToCString(),defaultdir.ToCString(),0) > 32
	Return False
End Function
ExecFile("test.url")

But this code does not open the label :(. Exe files he starts orderly