检测名称是否是windows保留的设备名称代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】检测名称是否是windows保留的设备名称

作者:dezai / 发布于2013/12/3/ 260

function IsReservedDeviceName(DevName: string): Boolean;
const
 // List of reserved device names
 cReservedNames: array[1..22] of string = (
  'CON', 'PRN', 'AUX', 'NUL',
  'COM1', 'COM2', 'COM3', 'COM4', 'COM5', 'COM6', 'COM7', 'COM8', 'COM9',
  'LPT1', 'LPT2', 'LPT3', 'LPT4', 'LPT5', 'LPT6', 'LPT7', 'LPT8', 'LPT9'
 );
var
 I: Integer; // loops thru all reserved device names
begin
 // Get base file name, excluding path
 DevName := SysUtils.AnsiUpperCase(
 SysUtils.ExtractFileName(DevName)
 );
 Result := False;
 // Check if name is reserved
 for I := Low(cReservedNames) to High(cReservedNames) do
  if cReservedNames[I] = DevName then
  begin
   Result := True;
   Break;
  end;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　设备名称　

同语言下

可能有用的

dezai贡献的其它代码(1065)