Forum Discussion

nastya_e's avatar
nastya_e
Occasional Contributor
10 years ago
Solved

Get the default printer

Добрый день. Как  определить принтер, который в настоящий момент используется по умолчанию. Написание тестов на delphiscript Locator: = Sys.OleObject ('WbemScripting.SWbemLocator'); WmiSe...
  • joseph_michaud's avatar
    joseph_michaud
    10 years ago
    In the meantime you can try using the WbemObjectSet methods to enumerate the list:



      WbemObjectSet := WmiService.ExecQuery('Select * from Win32_Printer Where Default = True');

      count := WbemObjectSet.Count;

      for i := 0 to count - 1 do

      begin

        WbemObject := WbemObjectSet.ItemIndex(i);

        Log.Message(WbemObject.Name);

      end;

nastya_e's avatar
nastya_e
Occasional Contributor
10 years ago
Спасибо за ответ.

Но у меня после выполнения теста в лог ничего не падает, тест просто проходит как успешный.



результат у запроса Select * from Win32_Printer Where Default = True есть, т.к. если в коде прописать

if WbemObject.Count>0 then Log.Message('Установлен принтер по умолчанию'), то в лог попадает сообщение.