Add(MainForm,2953706,196,203)
{
 link(onCreate,821099:doDefaultPdfPrinter,[])
}
Add(InlineCode,821099,259,217)
{
 WorkPoints=#19:doDefaultPdfPrinter|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|0:|60:Procedure doDefaultPdfPrinter (var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|73:Procedure  THiAsmClass.doDefaultPdfPrinter (var _Data:TData; Index:word);|4:type|66:  TSetDefaultPrinter = function(pszPrinter: PChar): BOOL; stdcall;|3:var|16:  hLib: THandle;|40:  SetDefaultPrinter: TSetDefaultPrinter;|22:  PrinterName: String;|5:begin|42:  PrinterName := 'Microsoft Print to PDF';|2:  |38:  hLib := LoadLibrary('winspool.drv');|19:  if hLib <> 0 then|7:  begin|62:    // Загружаем функцию (используем ANSI версию для Delphi 3)|69:    @SetDefaultPrinter := GetProcAddress(hLib, 'SetDefaultPrinterA');|4:    |39:    if Assigned(SetDefaultPrinter) then|9:    begin|51:      if SetDefaultPrinter(PChar(PrinterName)) then|50:        // Оповещаем систему об изменении настроек|84:        SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LongInt(PChar('windows')));|8:    end;|22:    FreeLibrary(hLib);|6:  end;|4:end;|0:|4:end.|0:|
}