怎样取得某个文件的路径名？

Question

那位大哥知道给定一个文件返回他的路径名？
要用API函数请说明如何在Delphi中调用这个API函数？

Answer 1

var
  filenames,filenamed:string;
begin
  filenames:='某个文件的文件名';
  filenamed:=ExtractFilePath(filenames);
end;

Answer 2

extractfilepath
返回的是类似这样的路径c:\ddd\

Answer 3

This example copies a specified file into the same directory as the application.procedure TForm1.Save1Click(Sender: TObject);var
  NewFileName: string;
  Msg: string;
  NewFile: TFileStream;
  OldFile: TFileStream;
begin
  NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
  Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
  if MessageDlg(Msg, mtConfirmation, mbOKCancel, 0) = mrOK then
  begin
    OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;
    finally
      FreeAndNil(OldFile);
    end;
  end;end;

Answer 4

对于一个绝对路径，获取路径名称和文件名称分别使用
ExtractFilePth和ExtractFileName函数