shellexecute打开指定目录下文件的问题 ( 积分: 50 )

P

plalzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-29

• #1

动态打开指定目录下的文件，如打开file目录下与数据库中NAME字段中当前记录相同的
doc文件。
如果不使用目录，打开当前目录下文件的写法为：
ShellExecute(Handle,'open',pchar((ADOQuery1.fieldByName('NAME').AsString)+'.doc'),nil,nil,SW_NORMAL)
该语句已验证通过，但打开指定目录下文件不知道该怎样加目录
（注）不使用在数据库中每个记录加目录的写法，只在上面程度中写。
请各位大侠帮忙，分数不多，还望指教。

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-29

• #2

procedure ExecuteAFile(Path: string);
begin
Path := Path + ADOQuery1.fieldByName('NAME').AsString + '.doc';
ShellExecute(Handle,'open',pchar(Path),nil,nil,SW_NORMAL);
end;

ExecuteAFile('C:/File/');

 

X

xxj0828

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-29

• #3

Path := IncludeTrailingPathDelimiter(Path) + dts.FieldByName('Name').AsString + '.doc';
ShellExecute(Handle, 'open', PChar(Path), nil, nil, SW_NORMAL);

 

P

plalzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-30

• #4

解决了，受到ANiDelphi的启示，但没你的那么麻烦，直接用
ShellExecute(Handle,'open',pchar('Path'+(ADOQuery1.fieldByName('NAME').AsString)+'.doc'),nil,nil,SW_NORMAL)
谢谢

 

P

plalzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-30

• #5

接受答案了.