by
allistar >> Mon, 12 May 2003 20:29:46 GMT
Like this:
vars
command, site: String;begin
command := "open";
site := "
http://www.silvermoon.co.nz";
call shellExecute (0, command.bufferAddress, site.bufferAddress, 0, 0, 1); end;
where shellExecute is an external function defined as this:
shellExecute (hwnd, lpOperation, lpFile, lpParameters, lpDirectory,
nShowCmd : Integer) is ShellExecuteA in shell32;;
This will open up your default browser (e.g. Mozilla) with the URL you pass it.
Regards,
Allistar.
------------------------------------------------------------------
Allistar Melville
Software Developer, Analyst
allistar@silvermoon.co.nz
Auckland, NEW ZEALAND
Silvermoon Software
Specialising in JADE development and consulting
Visit us at:
http://www.silvermoon.co.nz ------------------------------------------------------------------