L lamit Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #1 从数据库中得到一个绝对路径，比如是D:/abc/as.doc,我想双击该绝对路径能直接打开该文件（as.doc），或其他文件格式，如何来实现？
L lamit Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #2 从数据库中得到一个绝对路径，比如是D:/abc/as.doc,我想双击该绝对路径能直接打开该文件（as.doc），或其他文件格式，如何来实现？
W wqyzsh Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #3 加入shellapi unit 使用Shellexecute()函数可以了
L lamit Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #4 那个绝对路径是从数据库中读取的，以字符串形式在DBEdit中显示，我如何才能一点击该字符串就读取该整串字符串？
B baobao2601 Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #5 首先在uses部分添加 shellapi 具体代码如下： procedure TForm1.Button1Click(Sender: TObject);//可以打开txt文件等 var stxt:string; begin stxt:='D:/abc/as.doc'; ShellExecute(Handle, 'open', pchar(stxt), nil, nil, SW_SHOW); end;
首先在uses部分添加 shellapi 具体代码如下： procedure TForm1.Button1Click(Sender: TObject);//可以打开txt文件等 var stxt:string; begin stxt:='D:/abc/as.doc'; ShellExecute(Handle, 'open', pchar(stxt), nil, nil, SW_SHOW); end;
A ahhlian Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #6 uses shellapi 具体代码如下： procedure TForm1.Button1Click(Sender: TObject); var Filename:string; begin Filename:='D:/abc/as.doc'; //可以是任何能够打开的文件，只要你机器装有相关软件 ShellExecute(Handle, 'open', pchar(stxt), nil, nil, SW_SHOW); end;
uses shellapi 具体代码如下： procedure TForm1.Button1Click(Sender: TObject); var Filename:string; begin Filename:='D:/abc/as.doc'; //可以是任何能够打开的文件，只要你机器装有相关软件 ShellExecute(Handle, 'open', pchar(stxt), nil, nil, SW_SHOW); end;
C chenybin Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-22 #7 那个绝对路径是从数据库中读取的，以字符串形式在DBEdit中显示，我如何才能一点击该字符串就读取该整串字符串？ DBEdit1.SelectAll; DBedit1.CopyToClipboard; 复制到粘贴板
那个绝对路径是从数据库中读取的，以字符串形式在DBEdit中显示，我如何才能一点击该字符串就读取该整串字符串？ DBEdit1.SelectAll; DBedit1.CopyToClipboard; 复制到粘贴板
