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

Delphi7 画面撷取，存成 jpg 档，可放在系统管理批处理程式cmd/bat，寄给系统管理人员

program ScreenShot;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  jpeg,
  Forms,
  uscreencap in 'uscreencap.pas';

var
  sPara1 : String;
  ajpeg  : TJPEGImage;
begin
  { TODO -oUser -cConsole Main : Insert code here }

  if ParamCount>0 then // 是否有參數
    begin
     sPara1 := ParamStr(1); // 指定檔名
     ajpeg:=TJPEGImage.Create;
     try
       CaptureScreenShotJPEG(ajpeg);
       ajpeg.SaveToFile(sPara1);
     finally
       ajpeg.Free;
     end
    end
  else
    begin
     writeln('Usage, Ex: ' ExtractFileName(Application.ExeName) ' c:\filename.jpg ');
     sleep(3000);
    end;
end.