procedure TForm1.Button1Click(Sender: TObject);
var
strFileName: String;
//文件名
strFilePath: String;
//文件路径
begin
if OpenDialog1.Execute then
strFilePath := ExtractFilePath(OpenDialog1.FileName);
strFileName := ExtractFileName(OpenDialog1.FileName);
end;
楼主是不是想要这个答案呢?要是的话就把分数给我吧!:)呵呵