用OpenDialog打开文件后，如何把文件保存在项目目录中

Question

用OpenDialog打开文件，如何把文件保存在项目目录中
请给出程序代码的，谢谢。

Answer 1

取得目录：
ExtractFilePath(Application.ExeName);

Answer 2

ExtractFilePath(OpenDialog1.FileName);

Answer 3

那怎么把打开的文件保存那另外的地方
比如打开的文件是e;\text\1.jpg
保存到f:\project\pic\
用程序怎么写？？

Answer 4

BOOL CopyFile(    LPCTSTR lpExistingFileName, // pointer to name of an existing file 
    LPCTSTR lpNewFileName, // pointer to filename to copy to 
    BOOL bFailIfExists  // flag for operation if file exists 
   );

Answer 5

是不是也可以用Image控件的Savetofile属性。（只对PICTURE而言）