레지스트리에서 프린트 이름 얻기

function Tfrm_UMS.FindConVersionDrive : Boolean;
var
   Loop : Integer;
   reg  : TRegistry;
begin
   Result := False;

   reg := TRegistry.Create;
   try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      reg.OpenKey('SOFTWARE\ImageMaker\ODCDSK\BW', False);
      PrinterName := reg.ReadString('PrinterName');
   finally
      reg.Free;
   end;

   if PrinterName = '' then
      Exit;

   Printer.Refresh;
   for Loop := 0 to Printer.Printers.Count-1 do begin
      if Printer.Printers.Strings[Loop] = PrinterName then begin
         Result := True;
         Exit;
      end;  // End of if
   end;  // End of for
end;