Como utilizar uma Webcam utilizando Delphi

Exemplo simples de utilização de Webcam no Delphi.

/ / Primeiro, declare as seguintes constantes 
const 

WM_CAP_DRIVER_CONNECT = WM_USER + 10;
WM_CAP_EDIT_COPY = WM_USER + 30;
WM_CAP_SET_PREVIEW = WM_USER + 50;
WM_CAP_SET_OVERLAY = WM_USER + 51; 
WM_CAP_SET_PREVIEWRATE = WM_USER + 52; 
implementation
{$R *. dfm }

/ / e declare a seguinte função 

function capCreateCaptureWindow(lpszWindowName: LPCSTR; function capCreateCaptureWindow (lpszWindowName: LPCSTR; 
dwStyle: DWORD;
x, y,
nWidth,
nHeight: integer;
hwndParent: HWND;
nID: integer): HWND; stdcall ;
external ' AVICAP32. DLL ' name ' capCreateCaptureWindowA '; 
procedure TForm1.Connect; 
var 
handle: THandle;
begin
  handle: = capCreateCaptureWindow ( 'Video', WS_CHILD + WS_VISIBLE, 0,
  0, 320, 240, Panel1. Handle , 1);  / / como você pode perceber, você precisará de um panel no seu form ;-) 

  SendMessage( handle , WM_CAP_DRIVER_CONNECT, 0, 0); 
  SendMessage( handle , WM_CAP_SET_PREVIEWRATE, 30, 0); 
  SendMessage( handle , WM_CAP_SET_OVERLAY, 1, 0); 
  SendMessage( handle , WM_CAP_SET_PREVIEW, 1, 0); 
end ;