K210.ORG

var

  defExplorer,tmpPath:array[0..MAX_PATH] of char;

  FileHandle: Integer;

  filestr:string;

begin

  GetTempPath(sizeof(tmpPath),@tmpPath);

  filestr:= tmpPath+'tmpfile.htm';

  FileHandle:=filecreate(filestr);

  fileclose(FileHandle);

  FindExecutable(pchar(filestr),@tmpPath,@defExplorer);

  shellexecute(0,'open',@defExplorer,'http://ya.ru','',SW_SHOWNORMAL);

  deletefile(filestr);

end;