delphi判断摄像头是否是插入的状态,就是不管是有驱动还是无驱动的我怎么来判断是否插入状态,我能判断有视频设备,但是不能判断是否插入。
function GetDriverList(Videolist:string):Boolean;
var
Invodielist: TStringList;
i,v:integer;
name:array[0..80] of char;
ver :array[0..80] of char;
begin
Invodielist := TStringList.Create;
result:= false;
Videolist:='';
for i:= 0 to 9 do
begin
ZeroMemory(@name,sizeof(name));
if capGetDriverDescription(i,name,80,ver,80) then
begin
v:=Invodielist.IndexOf(name);
if v < 0 then
begin
result:= True;
Videolist:= name + ver + EOL;
end elsebreak;
end
else break;
end;
end;
|