基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

 你还在为图片转PPT烦恼吗？

 WriteLn('退出程序，请按Q，然后按回车键');
    WriteLn('此程序为图片文件转PPT，');
    if InputQuery('请输入产品序号,如:VIFA-SS-', '', strResult) then begin
      if strresult='' then
      begin
        strResult:='VIFA-SS-';
      end;
      str:=UpperCase(strResult);
    end;
    s:='';
    WriteLn('请输入含有图片的文件夹路径........................................');
    Quit := False;
    while not Quit do begin
      CoInitialize(nil);
      ReadLn(S);
      if not  DirectoryExists(s) then
      begin
        exit;
      end;
      bHave:=True;
      Quit := (S = 'q') OR (S = 'Q');
      list:=TStringList.Create;
      MakeFileList(s '\','.jpg',List);
      MakeFileList(s '\','.bmp',List);
      MakeFileList(s '\','.png',List);
      IF List.Count=0 THEN
      BEGIN
        WriteLn('此文件夹里面没有图片文件...................');
        bHave:=False;
      end;
      if bhave = true then
      begin
        pptApp:=CreateOleObject('PowerPoint.Application');
        // pptApp.Visible := True;
        pptPre:=pptApp.Presentations.Add();
        gd:=pptPre.PageSetup.SlideHeight;