文件保存？ ( 积分: 30 )

怎样才能把一（图片）文件保存到当前运行文件下的指定的文件夹中，但不需通过保存对话框？
在当前运行文件下创建一文件夹代码怎么写？
帮忙帮忙！！！

来自: caisunyujia, 时间: 2005-09-06 11:51:00, ID: 3193410
Delphi中如何在程序中动态的创建文件夹？？？

来自: xianguo, 时间: 2005-09-06 12:07:31, ID: 3193451
If Not DirectoryExists(sDirName) Then ForceDirectories(sDirName);

来自: 张辉明, 时间: 2005-09-07 21:05:55, ID: 3195659
If Not DirectoryExists(sDirName) Then ForceDirectories(sDirName);

来自: 李翔鹏, 时间: 2005-09-10 8:18:55, ID: 3199484
If Not DirectoryExists(dir) Then Createdir(dir);

来自: 老人家, 时间: 2005-09-10 12:31:10, ID: 3199846
function CreateDir(const Dir: string)

B:=TJPEGImage.Create;
B.Assign(image1.Picture.Graphic);
B.SavetoFile(lj+'/'+'tmp.jpg');
B.Free;