delphi双击程序打开窗体之前打开网址怎么实现

delphi双击程序打开窗体之前打开网址怎么实现
用这个函数吗。。
放在哪里
ShellExecute(handle,nil,pchar('http://www.payqq.tk),nil,nil,SW_SHOWNORMAL)

解决方案 »

  1.   

    本帖最后由 bdmh 于 2011-06-26 17:05:55 编辑
      

  2.   

    打开窗体之前打开这个很重要吗，如果程序启动的快，在出现窗口之前和之后，根本看不出差异。如果一定要在窗口出现之前的话，1.可以放在工程文件，窗体创建之前，不过要引用单元ShellAPI, Windows
    2.放在主窗体OnCreate过程中
    3.放在任一单元的 initialization 部分。
      

  3.   

    无论是你放在DPR工程里面，还是放在窗体的OnCreate里面，仅写个ShellExecute是不管用的，因为ShellExecute在调用网页时还需要一定时间，而这个时间内你的窗体肯定又显示了。因此建议你在ShellExecute之后加一句sleep(1000)