打开文件的简单问题？（有关shellexecute 过程）在线等待

[zlccc]

请看下列代码！
procedure Tmain.Button1Click(Sender: TObject);
var str:pchar;
begin
str:='c:\cankao\a.doc';
//打开文件a.doc
shellexecute(0,'open',str,nil,nil,1);
end;

以上代码执行正常！但是我想在执行程序时监测当前路径！
getdir(0,path); //获取当前目录path
再用path与'\cankao\a.doc'合并
如下：
procedure Tmain.Button1Click(Sender: TObject);
var str:pchar; path:string;
begin
getdir(0,path); //获取当前目录path
str:=path+'\cankao\a.doc';
//打开文件a.doc
shellexecute(0,'open',str,nil,nil,1);
end;
提示出错

incompatible types:'string' and 'pchar';

怎么解决？是否需要把string 转换为pchar，怎么转换！

[naughtyboy]

pchar(str)

[pankun]

同意楼上.

[jinkang]

pchar(str)

[zlccc]

谢了！