Funkcja ustawiająca odpowiednią pozycję ProgressBar-a

Parametrami funkcji są:
svDialogName - nazwa okna dialogowego z Progressbar-em
nControlID - ID - kontrolki ProgressBar-a
nPos - pozycja do ustawienia
Komunikat przesłany do kontrolki ma definicję:
#define PBM_SETPOS              (WM_USER+2)

function ProgressBar_SetPosition(svDialogName, nControlID, nPos)
    number hCtrl;
    NUMBER  nResult;                           
    HWND hDlg;
begin
    hDlg = CmdGetHwndDlg( svDialogName );
    hCtrl = GetDlgItem(hDlg, nControlID);
    nResult = SendMessage(hCtrl, PBM_SETPOS, nPos, 0);
    return nResult;
end;