delphi中怎么获取程序安装目录?怎么调用其他程序?

： 1.比方说我想获取QQ的安装目录,该怎么做?
2.比方我想调用cmd 并且在cmd中自动输入ping 192.168.0.1 该怎么做呢?
麻烦各位高手说详细点~~不要简单的说一句从注册表读取,用什么什么函数等
麻烦您说详细点昂~

解决方案 »

  1.   

    呵呵 dBASEIII
    没想到你还挺注意我的啊 
    那个帖子的问题不好意思啊 问题解决了 望了给分了 
    分刚才已经给你了哦~~
    能帮忙给咱解决这两个问题百?
      

  2.   

    那你就把第2个问题解决办法告诉我啊
    别人告诉我 用 
    ShellExecute(Handle,'open', 'cmd.exe','ping 192.168.0.1' ,nil, SW_SHOWMAXIMIZED);
    但是这个只能调用出CMD,并不能自动输入ping 192.168.0.1啊?怎么回事?
      

  3.   

    我不是特别注意你，而是我现在发觉，不能随便回贴，要查一查发贴人的信誉度......//Ping结果到TXT//用WinExec
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      WinExec(PChar('CMD.exe "/C ping 10.72.39.11 >> C:\ping.txt"'), SW_HIDE);
    end;//用ShellExecute（注意，需要引用shellAPI单元)
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      ShellExecute(handle,'Open',PChar('CMD.exe'),'"/C ping 10.72.39.11 >> C:\ping.txt"',nil, SW_HIDE);
    end;
      

  4.   

    如果你要在cmd控制台上看结果，那就这样：  ShellExecute(handle,'Open',PChar('CMD.exe'),'"/C ping 192.168.1.6"',nil, SW_Normal);反正SW_hide的话，就隐藏看不到了OK睡觉去也。感冒了。