高分！Delphi简单问题！

Question

声明：我压根一点不会Delphi，所以描述的时候或者给代码的时候务必给全，详细此问题有两问，给出第一问给50分，给出第二问的50分，另外开贴送100分决不食言！
1：如何实现程序一开始就检测程序运行目录下是否存在App.exe文件，并且运行他！2：如何实现让程序下载http://username.isp.com/app.exe文件并且保存在程序同级目录下，如果要下载ftp://[email protected]/app.exe呢？在线等。嫌分不够开马甲继续给分！！

Answer 1

1. 在工程文件里写 if FileExists(ExtractFilePath(Application.ExeName)+'app.exe') then
  //存在文件
  winexec('app.exe',0)
else
    文件不存在

Answer 2

好！谢谢 southdream ，稍后给第一题的分

Answer 3

怎么你们Delphi用了if 就不用 End if么？而且App.exe启动的时候是前台吗？如果要侦测的程序在App.path \dir\app.exe 而且让他获得焦点。该如何写呢？ 麻烦回答了这个问题我直接结贴。那个下载的问题我开新贴！！

Answer 4

1 if FileExists(ExtractFilePath(GetCurrentDir+'\dir\app.exe') then
    winexec('\dir\app.exe',0);
2 ShellExecute(application.Handle,'open','http://username.isp.com/app.exe',0,'',SW_SHOW);

Answer 5

谢谢风！对第一题的补充！谢谢~我对第二的代码有疑问。如果我的机器上安装的是第一版Windows95没有安装浏览器，怎么办？ 如果我的浏览器被别的软件设置禁止下载怎么办呢？还有效么？？？

Answer 6

如果你想知道，为什么不动手试一下呢
我没有用过Win95，不了解你说的情况。试一下就知道了。

Answer 7

咱们可爱的Delphi7企业版 600多 M  预计还有2小时才能下载完如果这代码是依赖IE浏览网页实现的，那么在95下无效的。不管了！谢谢，结贴了！