InputBox Proto Buffer:Ptr, Caption:Ptr, Prompt:Ptr, Default:Ptr, Flags:Dword, BufferSize:Dword, RedrawProc:Ptr             

Function InputBox(Buffer: Pointer; Caption, Prompt, Default: PChar; Flags, BufferSize: Dword; RedrawProc: Proc) : LongBool;         

unsigned long __stdcall InputBox(void* Buffer, char* Caption, char* Prompt, char* Default,
                                     unsigned long Flags, unsigned long BufferSize, void* RedrawProc)

Buffer — по этому адресу будет записано возвращаемое значение
Caption — заголовок окна InputBox-а
Prompt — сообщение отображаемое в окне и предлагающее пользователю ввести данные
Default — значение по умолчанию, отображается в текстовом поле
Flags — опции, флаги
BufferSize — размер буфера под возвращаемое значение
RedrawProc — процедура перерисовки окна, вызывается при активации родительского окна

IBF_STRING = 0 — в буфер будет записана строка
IBF_NUMBER = 1 — в буфер будет записано число
IBF_MOUSE_REL = 0 — относительно положения указателя мыши
IBF_SCREEN_REL = 8 — относительно экрана
IBF_PARENT_REL = 16 — относительно родительского окна

IBE_NO_ERROR = 0 — успешно, нет ошибки
IBE_NUMBER_OVERFLOW = 1 — переполнение при вводе числа

Var
  Err: LongBool;
  X: LongInt;
  Txt: Array[0..10] Of Char;

// Ввод числа в переменную X
  Err := InputBox(@X, 'Input', 'Enter value', '-100', IBF_NUMBER, SizeOf(X), @On_Redraw);
  If Not Err Then       // Если нет ошибки
    DoSomething;        // продолжаем работу
  Else                  // иначе
    InputBoxError(Err); // обрабатываем ошибку

// Ввод строки в буфер Txt, Flags = 0, но можно вместо нуля написать IBF_STRING
   InputBox(@Txt, 'Input', 'Enter string', 'my text', 0, SizeOf(Txt), @On_Redraw);

InputBox1.png [ 15.71 KiB | Viewed 8852 times ]

InputBox2.png [ 13.83 KiB | Viewed 8852 times ]

один на ассемблере собирается с помощью UASM
другой на C — с помощью BCC32

1.PNG [ 9.19 KiB | Viewed 8763 times ]

нет возни с разделяемой памятью
не нужно запускать новый процесс
упрощается код
один файл вместо двух

  ; Flags = [mouse|screen|parent][number|string]
  IBF_STRING = 0      ; в буфер будет записана строка         ; string will be written to the buffer
  IBF_NUMBER = 1      ; в буфер будет записано число          ; number will be written to the buffer
  IBF_MOUSE_REL = 0   ; относительно положения указателя мыши ; relative to the mouse pointer
  IBF_SCREEN_REL = 8  ; относительно экрана                   ; relative to the screen
  IBF_PARENT_REL = 16 ; относительно родительского окна       ; relative to the parent window
  
  ; Errors
  IBE_NO_ERROR = 0        ; успешно, нет ошибки            ; success
  IBE_NUMBER_OVERFLOW = 1 ; переполнение при вводе числа   ; number greater than 0xFFFFFFFFFFFFFFFF
  IBE_RESULT_TOO_LONG = 2 ; результат не умещается в буфер ; result does not fit into buffer