摘要：
1.往Excel中插入图片 用MsExcelWorkSheet.Pictures.Insert(ExtractFilePath(ParamStr(0))+'temp.jpg'); 可以放图片varExcelApp,MyWorkBook,MsExcelWorkSheet,Temple1:Variant;begin try ExcelApp:=CreateOleObject('Excel.Application'); MyWorkBook:=CreateOleobject('Excel.Sheet'); MyWorkBook:=ExcelApp.Wo 阅读全文
摘要：
begin if not FileExists(Edit1.Text) then //if not DirectoryExists(Edit1.Text) then 判断目录是否存在 try begin CreateDir(Edit1.Text); //ForceDirectories(Edit1.Text); 创建目录 end; finally raise Exception.Create('Cannot Create '+Edit1.Text); end;end;//三个函数引用自SysUtils单元FileExists(Path)检查目... 阅读全文