Нет кнопки применить в окне настройка печати

[Smogg]

Сообщение от Paskal1

Смущает меня вот эти параметры один входной а другой выходной но почему они одинаковые?

pPrInfo2.pDevMode^,pPrInfo2.pDevMode^

Почему одинаковые, это у автора спросите, зачем ему не интересно сохранять входные данные)
_______________

Finally it comes to an end))

Фигня оказывается в том, что флаги DM_IN_BUFFER и DM_OUT_BUFFER означают следующее: если они есть, топри вызове функции аргументы pDevInputMode и pDevOutputMode используются, а если флаги не указаны - то на соответствующие аргументы внимания не обращается.
Другими словами, DM_IN_PROMPT в одиночку бесполезен, но его надо комбинировать с другими.

[Paskal1]

А как мне сохранить входные данные я так понимаю это то что выставил юзер
изменил

   DocumentProperties(0,Handle,pPrName,pPrInfo2.pDevMode^,pPrInfo2.pDevMode^, DM_IN_BUFFER or DM_OUT_BUFFER or DM_IN_PROMPT);   // вносим изменения в DevMode

[Paskal1]

Получилось с горем по полам
БОЛЬШОЕ СПАСИБО Smogg БЕЗ ТЕБЯ Я НЕ ЗНАЮ ЧТОБ ДЕЛАЛ
ПОКЛОН И БЛАГОДАРНОСТЬ СПАСИБО!
вот код процедуры вдруг кому понадобится
Окно открывается и при наж ок настройки сохраняются.

procedure TForm3.mySetPrint(Sender: TObject);
Var
pPrName : PChar;
Handle: THandle;
dwNeeded: THandle;
pPrInfo2:PPrinterInfo2;
MyOrientation:Integer;
begin
      pPrName:=PChar(sComboBox1.Text); // Берём имя принтера
      OpenPrinter(pPrName,Handle,nil); // Хэндл
      GetPrinter(Handle,2,nil,0,@dwNeeded); // в dwNeeded - размер, который нужно выделить для структуры
      pPrInfo2:=PPrinterInfo2(GlobalAlloc(GHND,dwNeeded)); //выделяем
      GetPrinter(Handle,2,pPrInfo2,dwNeeded,@dwNeeded);  // читаем в pPrInfo2
      pPrInfo2.pDevMode.dmFields:=DM_ORIENTATION;   // ставим чё нам нада
      pPrInfo2.pDevMode.dmOrientation:=MyOrientation; // ставим чё нам нада
      pPrInfo2.pSecurityDescriptor:=nil;              // ставим чё нам нада
       try
        DocumentProperties(0,Handle,pPrName,pPrInfo2.pDevMode^,pPrInfo2.pDevMode^, DM_IN_BUFFER or DM_OUT_BUFFER or DM_IN_PROMPT);   // вносим изменения в DevMode
        finally
       //RaiseLastWin32Error;
      SetPrinter(Handle,2,pPrInfo2,0);  // апдейтим
      GlobalFree(Cardinal(pPrInfo2)); // чистим
      ClosePrinter(Handle);
       end;
end;

[Smogg]

Сообщение от Paskal1

А как мне сохранить входные данные я так понимаю это то что выставил юзер

DocumentProperties(0,Handle,pPrName,pPrInfo2.pDevMode^,pPrInfo2.pDevMode^,
 DM_IN_BUFFER or DM_OUT_BUFFER or DM_IN_PROMPT);   // вносим изменения в DevMode

LONG DocumentProperties(
  _In_   HWND hWnd,
  _In_   HANDLE hPrinter,
  _In_   LPTSTR pDeviceName,
  _Out_  PDEVMODE pDevModeOutput,
  _In_   PDEVMODE pDevModeInput,
  _In_   DWORD fMode
);

Указывать другой pDevModeOutput буфер для получения измененных настроек. Если используете один и тот же, то он просто переписывается.

Правда, кое-какие (далеко не все) APIшные функцию могут изменять передаваемые им аргументы на черте-что, когда по идее не должны, но меняют. Как здесь, например, pDevModeInput после отработки функции меняться не должно, если используется только для чтения данных, но... кто там этих микрософтовцев знает, какие еще приколы с безопасностью им придут в голову.

P.s. Пожаст)