屏幕录制API

绝对原创, 自己封装, 方便使用.

使用的是TSCRec1.dll.

// H to Pas Converter Ver.1.20.1.47 by K.Kumaki
//     Date : 31 Mar 2012
//   Source : TSCRecApi.h (17 Feb 2003)

unit TSCRecApi;

{$X+}{$Z2}{$A8}

interface

uses Windows, Forms;


const
  Dll = 'TSCRec1.dll';
// General Function return values
  CAMREC_SUCCESS    = TRUE;    // General error - success
  CAMREC_FAILED    = FALSE;    // General error - failure
  CAMREC_FAILED_NUMERIC    = -1;    // General error - failure on a function not returning a BOOL


type
  HCAMREC    = THandle;    // capture object handle

// Video callback parameters
  p_camVideoCallbackParams = ^camVideoCallbackParams;
  camVideoCallbackParams = record
    hFrameDC    : HDC;
    hBitmap    : HBITMAP;
    hPalette    : HPALETTE;
    lpbi    : PBitmapInfo;
    pvBits    : Pointer;
    CursorPoint    : TPoint;
    hCursor    : HCURSOR;
  end;

type
  camInput = (
     cinScreen    = 0,
     cinWindow    = 1,
     cinRegion    = 2
     );

  camOutput = (
     coutNone    = 0,
     coutFile    = 1
     );

  camState = (
     cstStarting    = $01,
     cstStarted    = $02,
     cstStopping    = $04,
     cstStopped    = $08,
     cstPaused    = $10,
     cstRendering    = $11,
     cstAll    = $1
     );

  camAudioSource = (
     casNone    = 0,
     casWaveIn    = 1,
     casApplication    = 2
     );

  camFrameRateBase = (
     cfrbSeconds    = 1,
     cfrbMinutes    = 60,
     cfrbHours    = 3600
     );

  camCaptureMode = (
     ccmNormal    = 0,
     ccmQuick    = 1,
     ccmEventStreaming    = 2,
     ccmEventSingleFrame    = 3
     );

  camAviInterleaveMode = (
     cimNone    = 0,
     cimInterleaveByFrames    = 1,
     cimInterleaveBySeconds    = 2
     );

  camPropertyType = (
     cptCapture    = $01,
     cptFile    = $02,
     cptAvi    = $04,
     cptAll    = $07
     );

// CamGetLastError values
  camError = (
     cerrNone    = $0000,
     cerrInvalidState    = $0001,
     cerrInvalidParam    = $0002,
     cerrInvalidTempFolder    = $0003,
     cerrInvalidOutputFile    = $0004,
     cerrInvalidInput    = $0005,
     cerrNoVideoCallback    = $0006,
     cerrNoWaveInDevice    = $0007,
     cerrResourceAllocationFailed    = $0008,
     cerrRenderingFailed    = $0009,
     cerrVideoFileOpenFailed    = $000A,
     cerrVideoWriteFailed    = $000B,
     cerrAudioConversionFailed    = $000C,
     cerrAudioFormatInvalid    = $000D,
     cerrAudioFormatUnavailable    = $000E,
     cerrAudioDeviceOpenFailed    = $000,
     cerrAudioDeviceStartFailed    = $0010,
     cerrAudioFileOpenFailed    = $0011,
     cerrAudioWriteFailed    = $0012,
     cerrAviUnsupported    = $0013
     );

/////////////////////////////////////////////////////////////////////
// Function Prototypes

// Callback functions
  CAMSTATECHANGEPROC =  function (State: camState; var pData): BOOL; stdcall;
  CAMERRORPROC =  function (Error: camError; var pData): BOOL; stdcall;
  CAMVIDEOPROC =  function (var pCallbackParams: camVideoCallbackParams; var pData): BOOL; stdcall;

// Capture object creation
  function CamCreateCaptureA(const szLicense: PChar): HCAMREC; stdcall; external Dll;
  function CamCreateCaptureW(szLicense: PWChar): HCAMREC; stdcall; external Dll;
  function CamDestroyCapture(hCapture: HCAMREC): BOOL; stdcall; external Dll;

// Capture Methods
  function CamStartCapture(hCapture: HCAMREC): BOOL; stdcall; external Dll;
  function CamStopCapture(hCapture: HCAMREC): BOOL; stdcall; external Dll;
  function CamPauseCapture(hCapture: HCAMREC): BOOL; stdcall; external Dll;
  function CamResumeCapture(hCapture: HCAMREC): BOOL; stdcall; external Dll;
  function CamAbortCapture(hCapture: HCAMREC): BOOL; stdcall; external Dll;

// Advanced Capture Methods
  function CamCaptureEvent(hCapture: HCAMREC): BOOL; stdcall; external Dll;
  function CamAppAudio(hCapture: HCAMREC; dwNumberOfSamples: DWORD; dwBufferLength: DWORD; 
      lpBuffer: Pointer): BOOL; stdcall; external Dll;
  function CamPaletteChanged(hCapture: HCAMREC): BOOL; stdcall; external Dll;

// Capture Properties
  function CamSetInput(hCapture: HCAMREC; Input: camInput; hWnd: HWND; pRect: PRect): BOOL; stdcall; external Dll;
  function CamGetInput(hCapture: HCAMREC; var pInput: camInput; var phWnd: HWND; 
     pRect: PRect): BOOL; stdcall; external Dll;
  function CamSetOutput(hCapture: HCAMREC; Output: camOutput): BOOL; stdcall; external Dll;
  function CamGetOutput(hCapture: HCAMREC; var pOutput: camOutput): BOOL; stdcall; external Dll;
  function CamSetCaptureFrameRate(hCapture: HCAMREC; dwRate: DWORD; dwScale: DWORD; 
     Base: camFrameRateBase): BOOL; stdcall; external Dll;
  function CamGetCaptureFrameRate(hCapture: HCAMREC; var pdwRate: DWORD; var pdwScale: DWORD; 
     var pdwBase: camFrameRateBase): BOOL; stdcall; external Dll;
  function CamSetRecordCursor(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetRecordCursor(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;
  function CamSetAudioSource(hCapture: HCAMREC; Source: camAudioSource): BOOL; stdcall; external Dll;
  function CamGetAudioSource(hCapture: HCAMREC; var pSource: camAudioSource): BOOL; stdcall; external Dll;
  function CamSetAudioCaptureDevice(hCapture: HCAMREC; dwAudioDeviceID: DWORD): BOOL; stdcall; external Dll;
  function CamGetAudioCaptureDevice(hCapture: HCAMREC; var pdwAudioDeviceID: DWORD): BOOL; stdcall; external Dll;

// Advanced Capture Properties
  function CamSetOptimalCaptureFrameRate(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetOptimalCaptureFrameRate(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;
  function CamSetHideCaptureRectangle(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetHideCaptureRectangle(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;
  function CamSetRoundFrameSize(hCapture: HCAMREC; dwPixelBoundry: DWORD): BOOL; stdcall; external Dll;
  function CamGetRoundFrameSize(hCapture: HCAMREC; var pdwPixelBoundry: DWORD): BOOL; stdcall; external Dll;
  function CamSetBoostPriority(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetBoostPriority(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;
  function CamSetCaptureMode(hCapture: HCAMREC; Mode: camCaptureMode): BOOL; stdcall; external Dll;
  function CamGetCaptureMode(hCapture: HCAMREC; var pMode: camCaptureMode): BOOL; stdcall; external Dll;
  function CamSetCaptureAppAudioFormat(hCapture: HCAMREC; lpWaveFormat: Pointer): BOOL; stdcall; external Dll;
  function CamGetCaptureAppAudioFormat(hCapture: HCAMREC; lpWaveFormat: Pointer): BOOL; stdcall; external Dll;
  function CamSetMuteAudio(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetMuteAudio(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;

// Capture Callbacks
  function CamSetStateChangeCallback(hCapture: HCAMREC; lpfnCamStateChangeProc: CAMSTATECHANGEPROC; 
     dwData: DWORD): BOOL; stdcall; external Dll;
  function CamGetStateChangeCallback(hCapture: HCAMREC; var lpfnCamStateChangeProc: CAMSTATECHANGEPROC; 
     var pdwData: DWORD): BOOL; stdcall; external Dll;
  function CamSetErrorCallback(hCapture: HCAMREC; lpfnCamErrorProc: CAMERRORPROC; 
     dwData: DWORD): BOOL; stdcall; external Dll;
  function CamGetErrorCallback(hCapture: HCAMREC; var lpfnCamErrorProc: CAMERRORPROC; 
     var pdwData: DWORD): BOOL; stdcall; external Dll;
  function CamSetVideoCallback(hCapture: HCAMREC; lpfnCamVideoProc: CAMVIDEOPROC; 
     bCursorInfo: BOOL; dwData: DWORD): BOOL; stdcall; external Dll;
  function CamGetVideoCallback(hCapture: HCAMREC; var lpfnCamVideoProc: CAMVIDEOPROC; 
     var pbCursorInfo: BOOL; var pdwData: DWORD): BOOL; stdcall; external Dll;

// Capture runtime statistics
  function CamGetCaptureState(hCapture: HCAMREC): camState; stdcall; external Dll;
  function CamGetFrameCount(hCapture: HCAMREC): DWORD; stdcall; external Dll;
  function CamGetEffectiveFrameRate(hCapture: HCAMREC): Single; stdcall; external Dll;
  function CamGetDroppedFrameCount(hCapture: HCAMREC): DWORD; stdcall; external Dll;
  function CamGetMediaLength(hCapture: HCAMREC): DWORD; stdcall; external Dll;

// File Properties
  function CamSetFileSaveDialog(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetFileSaveDialog(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;
  function CamSetFileSaveDialogOwnerWindow(hCapture: HCAMREC; hwndOwner: HWND): BOOL; stdcall; external Dll;
  function CamGetFileSaveDialogOwnerWindow(hCapture: HCAMREC; var phwndOwner: HWND): BOOL; stdcall; external Dll;
  function CamSetFileNameA(hCapture: HCAMREC; const szFileName: PChar): BOOL; stdcall; external Dll;
  function CamGetFileNameA(hCapture: HCAMREC; szFileName: PChar): BOOL; stdcall; external Dll;
  function CamSetFileNameW(hCapture: HCAMREC; const szFileName: PWChar): BOOL; stdcall; external Dll;
  function CamGetFileNameW(hCapture: HCAMREC; szFileName: PWChar): BOOL; stdcall; external Dll;
  function CamSetTempFolderA(hCapture: HCAMREC; const szTempFolder: PChar; const szPrefix: PChar): BOOL; stdcall; external Dll;
  function CamGetTempFolderA(hCapture: HCAMREC; szTempFolder: PChar; szPrefix: PChar): BOOL; stdcall; external Dll;
  function CamSetTempFolderW(hCapture: HCAMREC; const szTempFolder: PWChar; const szPrefix: PWChar): BOOL; stdcall; external Dll;
  function CamGetTempFolderW(hCapture: HCAMREC; szTempFolder: PWChar; szPrefix: PWChar): BOOL; stdcall; external Dll;

// AVI Properties
  function CamSetAviDataRate(hCapture: HCAMREC; dwDataRate: DWORD): BOOL; stdcall; external Dll;
  function CamGetAviDataRate(hCapture: HCAMREC; var pdwDataRate: DWORD): BOOL; stdcall; external Dll;
  function CamSetAviQuality(hCapture: HCAMREC; dwQuality: DWORD): BOOL; stdcall; external Dll;
  function CamGetAviQuality(hCapture: HCAMREC; var pdwQuality: DWORD): BOOL; stdcall; external Dll;
  function CamSetAviKeyframeRate(hCapture: HCAMREC; dwKeyFrameRate: DWORD): BOOL; stdcall; external Dll;
  function CamGetAviKeyframeRate(hCapture: HCAMREC; var pdwKeyFrameRate: DWORD): BOOL; stdcall; external Dll;
  function CamSetAviVideoCodec(hCapture: HCAMREC; fccHandler: DWORD): BOOL; stdcall; external Dll;
  function CamGetAviVideoCodec(hCapture: HCAMREC; var pfccHandler: DWORD): BOOL; stdcall; external Dll;
  function CamSetAviAudioFormat(hCapture: HCAMREC; lpWaveFormat: Pointer): BOOL; stdcall; external Dll;
  function CamGetAviAudioFormat(hCapture: HCAMREC; lpWaveFormat: Pointer;
     var pdwSize: DWORD): BOOL; stdcall; external Dll;
  function CamSetAviInterleave(hCapture: HCAMREC; Mode: camAviInterleaveMode; dwInterleaveRate: DWORD): BOOL; stdcall; external Dll;
  function CamGetAviInterleave(hCapture: HCAMREC; var pMode: camAviInterleaveMode; 
     var pdwInterleaveRate: DWORD): BOOL; stdcall; external Dll;
  function CamSetAviCustomPlaybackFrameRate(hCapture: HCAMREC; bEnable: BOOL): BOOL; stdcall; external Dll;
  function CamGetAviCustomPlaybackFrameRate(hCapture: HCAMREC; var pbEnable: BOOL): BOOL; stdcall; external Dll;
  function CamSetAviPlaybackFrameRate(hCapture: HCAMREC; dwRate: DWORD; dwScale: DWORD; 
     Base: camFrameRateBase): BOOL; stdcall; external Dll;
  function CamGetAviPlaybackFrameRate(hCapture: HCAMREC; var pdwRate: DWORD; var pdwScale: DWORD; 
     var pBase: camFrameRateBase): BOOL; stdcall; external Dll;

// Miscellaneous 
  function CamGetLastError(hCapture: HCAMREC): camError; stdcall; external Dll;
  function CamResetProperties(hCapture: HCAMREC; PropertyType: camPropertyType): BOOL; stdcall; external Dll;
  function CamAviVideoPropertiesDialog(hCapture: HCAMREC; hwndOwner: HWND): BOOL; stdcall; external Dll;
  function CamAviAudioPropertiesDialog(hCapture: HCAMREC; hwndOwner: HWND): BOOL; stdcall; external Dll;
  function CamGetAudioDevices(hCapture: HCAMREC): DWORD; stdcall; external Dll;


type
  camControl = (
      cConPause    = 0,
      cConResum    = 1,
      cConStop    = 2
   );

  TRECObj = class
    class procedure CreateCapture(Wnd: THandle);
    class function CaptureStart(AviFile: string; pRc: PRect = nil; RecWindow: THandle=0): Boolean;
    class function CaptureControl(AControl: camControl): Boolean;
    class procedure DestroyCapture();
  end;
  
var
  g_hCapture: HCAMREC;
  g_IsIni: Boolean = False;
implementation

{ TRECObj }
class procedure TRECObj.CreateCapture(Wnd: THandle);
begin
  if g_IsIni then Exit;
  g_IsIni := True;
  g_hCapture := CamCreateCaptureA(PChar('097A3AE70C70B2063F'));
  CamSetFileSaveDialogOwnerWindow(g_hCapture, Wnd);
end;

class procedure TRECObj.DestroyCapture;
begin
  CamDestroyCapture(g_hCapture);
end;

class function TRECObj.CaptureControl(AControl: camControl): Boolean;
begin
  case AControl of
      cConPause: Result := CamPauseCapture(g_hCapture);
      cConResum: Result := CamResumeCapture(g_hCapture);
      cConStop:  Result := CamStopCapture(g_hCapture);
  end;    
end;

{:函数说明}
{
 AviFile:   录制的文件名  文件名为空时, 会弹出文件名对话框
 pRc:       录制的范围
 RecWindow: 录制的窗口
 关于范围的优先顺序:
   窗口句柄不为0时, 以窗口范围为准
   窗口句柄为0时, 以范围为准, 若范围也为0, 那么默认录制整个桌面.

  TRECObj.CaptureStart(''); //录制桌面, 弹出保存文件对话框

  TRECObj.CaptureStart('d:\168.avi'); //录制桌面 文件为 d:\168.avi

  rc := Rect(0,0,640, 480);
  TRECObj.CaptureStart('d:\168.avi', @rc); //录制范围(0,0,640,480)的区域

  TRECObj.CaptureStart('d:\168.avi', nil, Handle); 录制Handle所在的区域
}

class function TRECObj.CaptureStart(AviFile: string; pRc: PRect; RecWindow: THandle): Boolean;
begin
  CamSetCaptureMode(g_hCapture, ccmNormal);
  CamSetHideCaptureRectangle(g_hCapture, True);
  CamSetOutput(g_hCapture, coutFile);

  CamSetRecordCursor(g_hCapture, True);

  if RecWindow <> 0 then
    CamSetInput(g_hCapture, cinWindow, RecWindow, pRc)
  else if pRc <> nil then
    CamSetInput(g_hCapture, cinRegion, 0, pRc)
  else
    CamSetInput(g_hCapture, cinScreen, 0, pRc);

  CamSetAudioSource(g_hCapture, casWaveIn);
  if AviFile <> '' then
  begin
    CamSetFileSaveDialog(g_hCapture, False);
    CamSetFileNameA(g_hCapture, PChar(AviFile));
  end else
    CamSetFileSaveDialog(g_hCapture, True);

  CamStartCapture(g_hCapture);
end;

end.

使用方法, 很简单

procedure TForm1.FormCreate(Sender: TObject);
begin
  TRECObj.CreateCapture(Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TRECObj.DestroyCapture();
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  rc: TRect;
begin
 // TRECObj.CaptureStart('');
  TRECObj.CaptureStart('d:\168.avi');
//  rc := Rect(0,0,640, 480);
//  TRECObj.CaptureStart('d:\168.avi', @rc);
 // TRECObj.CaptureStart('d:\168.avi', nil, Handle);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  TRECObj.CaptureControl(cConPause);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  TRECObj.CaptureControl(cConResum);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
  TRECObj.CaptureControl(cConStop);
end;