Var x:cardinal; Begin x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9); {扫描仪与数字相机 属性} End
安装imgscan, 用下面的代码可以操作 ImgScan.SetScannerName('scannername'); if ImgScan.ScannerAvailable then begin ImgScan.OpenScanner; ImgScan.StartScan; ImgScan.CloseScanner; end
原因就是你扫描端口时只能扫描到一个,用什么端口的,USB的
还是串口?
Begin
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Password.cpl',9);
{扫描仪与数字相机 属性}
End
用下面的代码可以操作
ImgScan.SetScannerName('scannername'); if ImgScan.ScannerAvailable then
begin
ImgScan.OpenScanner;
ImgScan.StartScan;
ImgScan.CloseScanner;
end