我想要做个这样的功能: 象windos那样,双击一个文件,就用相应的程序打开文件。怎么弄呢?请给个思路,谢谢。顺便:我是想知道怎么样自己编写出这样的功能,他的实现过程,请不要回复“直接双击 就可以了”之类的话,谢谢大侠关注

解决方案 »

  1.   

    uses shellapi; shellexecute(0, 'open', 'abc.txt', nil, nil, SW_SHOW);
      

  2.   

    uses ShellAPI;procedure TForm1.Button1Click(Sender: TObject);
    var strFileName: String;
    begin
        strFileName := '你的任意文件名';
        ShellExecute(Handle, 'Open', PChar(strFileName), nil, nil, SW_SHOW);
    end;
      

  3.   

    调用API,应该不算超难的问题。
      

  4.   

    做一个COM服务,打开某一个后缀名的文件,编译注册后就可以了萨!
      

  5.   

    你是希望双击以后调用你自己的程序来打开文件呢,还是希望双击以后自动调用相应的Window缺省程序来打开文件
    楼上说的是第二种,如果是第一种,那就要在你的程序中传入文件名参数,然后再注册表中注册你的程序即可
      

  6.   

    hoho~~谢谢大家的关注,我是想这样的:双击,用windows里安装的相应的工具打开,比如我双击一个.jpg文件,如果安装了acdsee就用它打开,没有就用画板打开(windows去判断)。
    谢谢 各位的提示,我回去看看,也希望有哪位不辞辛劳的大虾可以 贴一个比较完整的例子,祝大家新年快乐~~~!!!