[NumLock]

Код:

procedure RunSettings(AParent: HWND);
begin
  DialogBoxParam(hInstance, MAKEINTRESOURCE(ID_SETTINGS), AParent, @SettingsDialogProc, ord(Settings.szFile <> ''));
end;

    case Command of
      'c', 'C' : RunSettings(StrToIntDef(Copy(ParamStr(1), 4,
        Length(ParamStr(1))), 0));		// Executing dialogue of the settings

Код:

function StrToIntDef(const S: String; Default: Integer): Integer;
var
  E: Integer;
begin
  Val(S, Result, E);
  if E<>0 then Result:=Default;
end;

на 7 после перекрытия все ок, но картинка превью исчезает после перемещения окна свойств экрана за пределы экрана и обратно.