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

Question

请看下列代码！  
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，怎么转换！