uses hddserial;

function RegisterSQLFunctions: string;
begin
  RegisteredSQLFunctions.AddObject('scrHDDSerial', TnxSQLFunctionInfo.Create(
          'scrHDDSerial', 1 , rttAsArg1x, true, '', '', nxtWideString, 0, 30, '', 0, '', 0));
end;

function scrHDDSerial(aInput: variant): variant;
begin
  result:=HardDiskSerial(aInput);
end;

begin
end.



