P
plalzh
Unregistered / Unconfirmed
GUEST, unregistred user!
我想打开一个当前目录下与数据库中NAME字段值同名的文件,语句如下：
procedure Tmainfm.BitBtn2Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar ADOQuery1.fieldByName'NAME').AsString),nil,nil,SW_NORMAL);
end;
但这样写必须在NAME字段中把文件扩展名一并写进去，比如“我爱我家.txt”，有没有高手通过修改这个语句不用在NAME中写扩展名也能打开目录中的文件，也就是只写个文件名“我爱我家”。
procedure Tmainfm.BitBtn2Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar ADOQuery1.fieldByName'NAME').AsString),nil,nil,SW_NORMAL);
end;
但这样写必须在NAME字段中把文件扩展名一并写进去，比如“我爱我家.txt”，有没有高手通过修改这个语句不用在NAME中写扩展名也能打开目录中的文件，也就是只写个文件名“我爱我家”。