usbcamsecurity.dpr

来自「一个关于Delphi获取摄像头视频的例子」· DPR 代码 · 共 31 行

program UsbCamSecurity;

uses
  Windows,
  Forms,
  Unit_FrmMain in 'Unit_FrmMain.pas' {FrmMain};

{$R *.res}

var
  hMutex: HWND;
  Ret: Integer;
begin
  Application.Initialize;
  hMutex := CreateMutex(nil, False, '_UsbCamSecurity_');
  Ret := GetLastError;
  if Ret <> ERROR_ALREADY_EXISTS then
  begin
    Application.Title := 'Usb摄像头偷窥终结者V0.5';
    Application.ShowMainForm := False;
    Application.CreateForm(TFrmMain, FrmMain);
    Application.Run;
  end
  else
   begin
    ReleaseMutex(hMutex);
    MessageBox(0,'程序已经运行了一个实例!','Usb摄像头偷窥终结者V0.5',MB_ICONINFORMATION+MB_TOPMOST);
  end; 
end.